以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  这是一个令人头疼的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140498)

--  作者：ygg8310 --  发布时间：2019/9/6 23:08:00 --  这是一个令人头疼的问题 代码1：For Each r As Row In Tables("表A").rows         If DataTables("表B").select("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\' And 第三列 = \'" & r("第三列") & "\' And 第四列 = \'" & r("第四列") & "\' And 第五列 = \'" & r("第五列") & "\' And 第六列 = \'" & r("第六列") & "\'") Is Nothing Then                     Else 执行代码2：       For Each r As Row In Tables("表A").rows         If DataTables("表B").select("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\' And 第三列 = \'" & r("第三列") & "\' And 第四列 = \'" & r("第四列") & "\'") Is Nothing Then  r("查找情况") = "没找到B"  Else r("查找情况") = "找到了B"  End If Next 这个问题很令人头疼，如何让代码2跳过代码1找到的结果？即代码1列出所有符合条件的行并执行代码2，代码2在代码1列出的行以外查找

--  作者：有点蓝 --  发布时间：2019/9/7 8:35: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("第六列") & "\'") Is Nothing Then         If DataTables("表B").find("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\' And 第三列 = \'" & r("第三列") & "\' And 第四列 = \'" & r("第四列") & "\'") Is Nothing Then             r("查找情况") = "没找到B"         Else             r("查找情况") = "找到了B"         End If     End If Next