主题：[求助]筛选

AfteLoad事件，currentChanged事件

If forms("窗口1").Opened Then
    Dim t As Table = Tables("窗口1_Table1")
    If t.current Is Nothing Then
        Tables("窗口2_Table1").Filter = ""
    Else
        Tables("窗口2_Table1").Filter = "筛选 = '" & t.current("筛选") & "'"
    End If
End If