主题：关于跨表筛选

想实现以下功能：

窗口中有表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'"