主题：筛选问题

设置在CurrentChanged事件：

Dim r As Row = e.Table.Current
if r IsNot  Nothing Then
     dim wz AS integer = Tables("另一个表").Findrow("某某列 = '" & r("某某列") & "'")
     If wz >=0 Then
           Tables("另一个表"). Position = wz
     end if
End if