主题：副表问题求助版主？

beforefilter事件

msgbox(e.Table.name)
If e.Table.name = "表A" Then
    Dim fl As String = "第一列='123'"
    If e.Table.Filter = "" Then
        e.filter = fl
    ElseIf e.Table.filter.IndexOf(fl) < 0 Then '如果没有包括雇员条件
        e.Filter = e.Table.filter & " And " & fl
    End If   
End If

msgbox(e.filter)