Foxtable(狐表)用户栏目专家坐堂 → 这是一个令人头疼的问题


  共有2070人关注过本帖树形打印复制链接

主题:这是一个令人头疼的问题

帅哥哟,离线,有人找我吗?
ygg8310
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:960 积分:8519 威望:0 精华:0 注册:2016/4/10 14:33:00
这是一个令人头疼的问题  发帖心情 Post By: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列出的行以外查找

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107757 积分:548124 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部