以文本方式查看主题 -  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=140430)

--  作者：ygg8310 --  发布时间：2019/9/5 15:35:00 --  这个问题耶 Dim r As Row = Tables("表A").current If DataTables("表B").Find("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\' And 第三列 = \'" & r("第三列") & "\' And 第四列 = \'" & r("第四列") & "\' And 第五列 = \'" & r("第五列") & "\' And 第六列 = \'" & r("第六列") & "\' And 第七列 = \'" & r("第七列") & "\'") Is Nothing Then   r("结论") = "正常" Else r("结论") = "不正常" End If 这段代码，我是用于2个表之间的比对，我是把它做成了一个按键并希望它能够实现一键对比2个表，但在实际操作中它只能对选定的某一行执行，2行就不知行了。。。这是为什么呢？

--  作者：有点蓝 --  发布时间：2019/9/5 15:55:00 --   for each r as row in Tables("表A").rows If DataTables("表B").Find("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\' And 第三列 = \'" & r("第三列") & "\' And 第四列 = \'" & r("第四列") & "\' And 第五列 = \'" & r("第五列") & "\' And 第六列 = \'" & r("第六列") & "\' And 第七列 = \'" & r("第七列") & "\'") Is Nothing Then   r("结论") = "正常" Else r("结论") = "不正常" End If next