我一直在与vba争夺一点,令人惊讶的是它并没有变得更好.我编写了以下代码,因此我可以为对象创建一个特殊的比较运算符.
Public Function myEquals(v As CCtypestore) As Boolean
If v Is Nothing Then
myEquals = False
Return
End If
If Me.Acronym = v.Acronym Then
myEquals = True
Return
End If
myEquals = False
Return
End Function
Run Code Online (Sandbox Code Playgroud)
我传入的对象v目前没什么,所以我有点期待结果是一个微不足道的错误.令人惊讶的是,我得到一个错误返回没有gosub.任何线索可能是为什么?