主题：如何制作检索按钮可同时检索多张表格？

Dim txt As String = e.Form.Controls("TextBox11").Text
Dim tbl1 As Table = Tables("往来帐")
Dim tbl2 As Table = Tables("往来帐2")
If txt = "" Then
    tbl1.Filter = ""

    tbl2.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl1.Filter = "商家编码 Like " & txt & " Or 商家名称 Like " & txt & " Or 操作员 Like " & txt & " Or 摘要 Like " & txt  & " Or 金额类别 Like " & txt    & " Or 关联工单 Like " & txt    & " Or 备注 Like " & txt     
    tbl2.filter = tbl1.filter
End If