以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于跨表列对比的代码求纠错！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=159255)
--  作者：xnsiwei
--  发布时间：2020/12/18 23:26:00
--  关于跨表列对比的代码求纠错！

代码如下：
For Each dr1 As DataRow In DataTables("xnszcwsss").datarows
    Dim dr2 As DataRow = DataTables("xnncshws2409fx").find("Xzc=\'" & dr1("Xzc") & "\' AND ("zhen=\'" & dr1("zj") & "\' AND Zrc=\'" & dr1("Zrc") & "\'")
    If dr2 IsNot Nothing Then
        dr1("zrcbm") = dr2("zrcbm")
    End If
Next


显示错误！
--  作者：有点蓝
--  发布时间：2020/12/19 9:42:00
--  
Dim dr2 As DataRow = DataTables("xnncshws2409fx").find("Xzc=\'" & dr1("Xzc") & "\' AND zhen=\'" & dr1("zj") & "\' AND Zrc=\'" & dr1("Zrc") & "\'")
--  作者：xnsiwei
--  发布时间：2020/12/19 23:13:00
--  
谢谢