跨表查询筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表查询筛选

共有1661人关注过本帖树形打印复制链接主题：跨表查询筛选

133198609

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：373 积分：3107 威望：0 精华：0 注册：2015/1/30 9:47:00

跨表查询筛选 发帖心情

Post By：2017/3/29 16:11:00 [只看该作者]

Dim lst1 AS New List(of DataRow)
For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = " & dr("第一列")) Is Nothing Then
        lst1.Add(dr)
    End If
Next

然后怎么把表A的筛选设置成lst1呢？也就是显示所有符合条件的行

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 16:31:00 [只看该作者]

Dim lst1 As New List(of String)
For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表A").Find("第二列 = '" & dr("第一列") & "'") Is Nothing Then
        lst1.Add(dr("_Identify"))
    End If
Next
Tables("表A").Filter = "_Identify in (" & ("-1," & String.Join(",", lst1.ToArray)).trim(",") & ")"

133198609

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：373 积分：3107 威望：0 精华：0 注册：2015/1/30 9:47:00

Post By：2017/3/29 17:36:00 [只看该作者]

好吧，还想可以更直接的办法呢。只好这样了。

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 17:41:00 [只看该作者]

Tables("表a").filter = "第一列 not in ('" & DataTables("表a").GetComboListString("第二列").replace("|", "','") & "')"

下一主题 >> << 上一主题

主题：跨表查询筛选