使用 VBA 当两个字符串不同时 StrComp 返回 false

Question

我正在尝试比较 VBA 中的两个字符串值，但我发现了 VBA 的一个奇怪的怪癖（或者看起来如此）。见下文：

如果我执行以下操作：

Debug.Print("Same" & StrComp(Me.txtFirstName.Value, Me.txtFirstName.Value, vbTextCompare))
Debug.Print("Different" & StrComp(Me.txtFirstName.Value, Me.txtFirstName.OldValue, vbTextCompare))

我得到：

Same: 0
Different: 1

这是我所期望的。然而。如果我然后尝试执行以下操作：

Debug.Print("Same" & StrComp(Me.txtFirstName.Value, Me.txtFirstName.Value, vbTextCompare) = 0)
Debug.Print("Different" & StrComp(Me.txtFirstName.Value, Me.txtFirstName.OldValue, vbTextCompare) = 0)

然后我得到：

Same: False
Different: False

作为参考，值应该是（例如）

Same test: "Jane", "Jane"
Different test: "Jane", "John"

这不是我所期望的。我知道我做错了什么，但我不确定是什么。

任何帮助表示赞赏。

编辑：

当我现在将其输入 if 语句时：

If (StrComp(Me.txtFirstName.Value, Me.txtFirstName.OldValue, vbTextCompare) = 0) Then
    Debug.Print ("Hello")
Else
    Debug.Print ("Goodbye")
End If

我得到的结果是 Goodbye

Answer 1

您的问题是它首先连接 "Different" & StrComp(Me.txtFirstName.Value, Me.txtFirstName.OldValue ，然后与 =0 进行比较。

并且 Different1 不是 0 > 因此你会得到False。

在连接之前使用括号来评估比较：

Debug.Print("Same" & (StrComp(Me.txtFirstName.Value, Me.txtFirstName.Value, vbTextCompare) = 0))
Debug.Print("Different" & (StrComp(Me.txtFirstName.Value, Me.txtFirstName.OldValue, vbTextCompare) = 0))

---

实际上这段代码

Debug.Print("Same" & StrComp(Me.txtFirstName.Value, Me.txtFirstName.Value, vbTextCompare) = 0)

应该以类型不匹配错误结束。

---

If StrComp(Me.txtFirstName.Value, Me.txtFirstName.Value, vbTextCompare) = 0 Then
    MsgBox "They are the same"
Else
    MsgBox "They are different"
End If