专家坐堂-[求助]窗体中如何用代码实现关联筛选Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=34328)

--  作者：yanxin04
--  发布时间：2013/6/5 14:26:00
--  [求助]窗体中如何用代码实现关联筛选
做一个窗体，窗体中有一个表，添加一个按键，想在click事件添加代码，显示表A与表B对比结果（第一列没有相同的显示），用关联筛选可以实现，不知如何编写代码，

--  作者：狐狸爸爸
--  发布时间：2013/6/5 14:30:00
--

参考：

http://www.foxtable.com/help/topics/2711.htm

--  作者：Bin
--  发布时间：2013/6/5 14:31:00
--
可以使用关联筛选系统命令

Syscmd.Filter.RelationFilter()

--  作者：XYT
--  发布时间：2013/6/5 14:33:00
--
Dim ids As String
For Each dr As DataRow In DataTables("表B").DataRows
    If DataTables("表A").Find("第一列=\'" & dr("第一列") & "\'") Is Nothing Then
        ids=ids & ",\'" & dr("第一列") & "\'"
    End If
Next
Tables("窗口1_Table1").Filter = "第一列 in (" & ids.trim(",") & ")"

--  作者：yanxin04
--  发布时间：2013/6/5 14:49:00
--
谢谢三位

--  作者：yanxin04
--  发布时间：2013/6/12 0:16:00
--
Dim ids As String
Dim id As String
For Each dr As DataRow In DataTables("表B").DataRows
    If DataTables("表A").Find("第一列=\'" & dr("第一列") & "\'") Is Nothing Then
        ids= ids & "\'" & dr("第一列") & "\',"
        id=dr("第一列")
    End If
Next
Tables("窗口1_Table1").DataSource =DataTables("表B")
Tables("窗口1_Table1").Filter = "第一列 in (" & ids & "\'" & id & "\'" & ") "