主题：[求助]Find查找问题不解

表A和表B有四列对应，第一列是文本列，第二列，第三列，第四列为数字，如果数字列有空值时，查到不到对应的行

代码如下：

Dim dr As DataRow = DataTables("表A").DataRows(0)
Dim dr1 As DataRow
dr1 = DataTables("表B").Find("第一列 = '" & dr("第一列") & "' and 第二列 = " & dr("第二列") & " and 第三列 = " & dr("第三列") & " and 第四列 = " & dr("第四列"))
dr1("第五列") = dr("第五列")

 

此主题相关图片如下：表a.png


此主题相关图片如下：表b.png

要这样合成条件，如

 

Dim flt As String = "1=1"

If dr("第一列") = nothing Then

    flt &= " and 第一列 is null"

else

    flt &= " and 第一列 = '" & dr("第一列") & "'"

End If

If dr("第二列") = nothing Then

    flt &= " and 第二列 is null"

else

    flt &= " and 第二列 = '" & dr("第二列") & "'"

End If

 

msgbox(flt)