以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于跨表筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160691)
--  作者：wangglby
--  发布时间：2021/2/16 20:42:00
--  关于跨表筛选

想实现以下功能：

 

窗口中有表A和表B，想在窗口中加一个按钮，单击按钮后，根据表A的当前行第一列的值，表B的第一列中进行筛选。

 

我凑合写的以下代码，没有反应，请帮看看怎么回事。

 

Dim t As Table = Tables("表B")
Dim t1 As Table = Tables("表A")
Dim i As Integer = CurrentTable.Position
Dim A As String =t1.Rows(i)("第一列")
      
 t.Filter = "[第一列] = \'A\'"

 
--  作者：有点蓝
--  发布时间：2021/2/18 9:17:00
--  
Dim t As Table = Tables("表B")
Dim t1 As Table = Tables("表A")
t.Filter = "[第一列] = \'" & t1.current("第一列") & "\'"