以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  救助:对比两列取第三列的数据,不报错,但没反应?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158180)

--  作者:xnsiwei
--  发布时间:2020/11/10 16:37:00
--  救助:对比两列取第三列的数据,不报错,但没反应?
救助:对比两列取第三列的数据,不报错,但没反应?

For Each dr1 As DataRow In DataTables("nwxhzsf").datarows
    Dim dr2 As DataRow = DataTables("xnncshwsmchzxcxpt").find("Xzc=\'" & dr1("Xzc") & "\' AND Zrc=\'" & dr1("Zrc") & "\'")
    If dr2 IsNot Nothing Then
        dr1("Hjrk1") = dr2("Hjrk1")
    End If
Next


谢谢指点!

--  作者:有点蓝
--  发布时间:2020/11/10 16:40:00
--  
代码没有问题,没反应就应该是没有符合条件的数据
--  作者:xnsiwei
--  发布时间:2020/11/10 20:39:00
--  
谢谢,搞定