vb6 - Is Nothing 比较会导致类型不匹配

Question

我正在尝试检查“Listivew.Tag 属性是否为空”。

我过去常常对所有场景进行“什么都没有”检查作为第一次检查以避免错误

有人可以解释如何在 VB 6 中做到这一点吗？

 If Not .lvwLocation.Tag Is Nothing Then
    'COMPANY
    str = str & IIf(Len(.lvwLocation.Tag) > 0, " and u.location_id in " & .lvwLocation.Tag, "")
End If

给出错误“类型不匹配”

Answer 1

Nothing是 Object 的有效值变量，和 Is是比较对象指针的方法。

但是 VB6 控件的 Tag 属性是一个字符串，而 VB6的String类型不是Object；这是一个原始类型 .这意味着不能为 String 变量赋值 Nothing -- 它最空的可能值是空字符串。 (并且不能为 Object 变量分配字符串值。)对于字符串，只需使用与其他原始(数字/ bool /日期)类型相同的相等/不等/比较运算符:

If .lvwLocation.Tag <> "" Then ...