以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Find查找问题不解  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129430)

--  作者:ajie5211
--  发布时间: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)