解决二义性！

Posted 2023-04-16

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Column <> 3 Then Exit Sub
Dim c As Range
For Each c In Target
If c.Column = 3 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 7).Value = Format(Now, "yyyy-mm-dd")
End If
End If
Next
End Sub
-------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Column <> 7 Then Exit Sub
Dim c As Range
For Each c In Target
If c.Column = 7 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 1).Value = Format(Now, "yyyy-mm-dd")
End If
End If
Next
End Sub

同一子过程是不能重复定义两次的，否则的话，当事件触发时，你让电脑究竟是运行上面那个Worksheet_Change，还是下面那个？这就是二义性。
你这两个子过程是可以合并的：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1, 1).Column <> 3 And Target.Cells(1, 1).Column <> 7 Then Exit Sub
Dim c As Range
For Each c In Target
If c.Column = 3 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 7).Value = Format(Now, "yyyy-mm-dd")
End If
ElseIf c.Column = 7 Then
If c.Value = "" Then
c.Offset(0, 1).Value = ""
Else
c.Offset(0, 1).Value = Format(Now, "yyyy-mm-dd")
End If
End If
Next
End Sub 参考技术A

有两个解决二义性的基本方法。

方法一：设置一个规则，该规则可在每个二义性情况下指出哪一个分析树（或语法树）是正确的。这样的规则称作消除二义性规则（disambiguating rule）。这样的规则的用处在于：它无需修改文法（可能会很复杂）就可消除二义性。

方法二：这种方法是将文法改变成一个强制正确分析树的构造的格式，这样就可以解决二义性了。当然在这两种办法中，都必须确定在二义性情况下哪一个树是正确的。这就再一次涉及到语法制导翻译原则了。所需的分析（或语法）树应能够正确地反映将来应用到构造的意义，以便将其翻译成目标代码。

　　如果文法G中的某个句子存在不只一棵语法树，则称该句子是二义性的。如果文法含有二义性的句子，则称该文法是二义性的。

关于虚拟继承及其解决的问题

1.虚拟继承（virtual public）
解决问题：菱形继承如何使最终的子类中只有一份拷贝（消除二义性和数据冗余）
1)菱形继承：

2)多份拷贝产生的问题：
二义性和数据冗余

基类定义一个成员m_a后，被B,C两个派生类继承，B,C再作为基类被D所继承，此时D去访问A中定义的成员m_a，会出现“访问不明确”的错误。

原因是，再A被B,C继承后，意味着B和C各自继承了一份A的成员，就是所谓的数据冗余；等价于B和C中各有一个“m_a”，此时D继承B，C后再去访问这个成员，编译器就无法确定D访问的是哪一个m_a，就是所谓的二义性。
3)解决方法：
解决二义性的问题可以通过指定指定父类的方法去访问成员

这样一来编译器就不会报错了，但并不能解决数据冗余的问题。
解决数据冗余的问题需要通过虚拟继承的方法

这样一来就可以正常访问成员m_a了，并且此时再访问该成员的话，m_a显示为A的成员而非B或C的（A::m_a）。
Ps：如果普通继承和虚拟继承同时存在，先执行虚拟继承。