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

检索单张的表格，其按钮带学习为

Dim txt As String = e.Form.Controls("TextBox11").Text
Dim tbl As Table = Tables("往来帐")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "商家编码 Like " & txt & " Or 商家名称 Like " & txt & " Or 操作员 Like " & txt & " Or 摘要 Like " & txt  & " Or 金额类别 Like " & txt    & " Or 关联工单 Like " & txt    & " Or 备注 Like " & txt     
End If

如何设置代码使其可以一次检索多张表格呢？

麻烦指导了哦~

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