currentChanged事件
If e.Table.Current Is Nothing Then Return '则返回End IfTables("表B").filter = "[第二列] = '" & e.Table.Current("第一列") & "'"