主题：多表窗口查询

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("表A")

If txt = "" Then   '如果内容为空

    tbl.Filter = ""  '显示所有客户

Else   '否则根据输入内容进行模糊筛选

    txt = "'%" & txt & "%'"

    tbl.Filter = " 单位 Like " & txt & " Or 人员编号 Like " & txt & " Or 姓名 Like " & txt & " Or 手机号码 Like " & txt & " Or 身份证号码 Like " & txt

End If

比如我要在选定表中进行查找，请老师指导一下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:多表窗口查询.foxdb