- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Find查找问题不解 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129430)
-- 发布时间：2018/12/28 11:22:00
-- [求助]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
-- 发布时间：2018/12/28 11:52:00
--
要这样合成条件，如
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)