以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]請問查找功能無法實現,請高手指點一下。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90286)

--  作者:GD007
--  发布时间:2016/9/9 9:01:00
--  [求助]請問查找功能無法實現,請高手指點一下。
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("查詢_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "姓名 Like " & txt & " Or 藍卡紙編號 Like " & txt & " Or 通行證編號 Like " & txt & " Or 入職部門 Like " & txt 
End If


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20160909085709.png
图片点击可在新窗口打开查看

做一個查詢窗口,在對話框任意輸入內容,查找顯示

--  作者:有点蓝
--  发布时间:2016/9/9 9:14:00
--  
如果不是副本表,直接使用原来的表名,比如

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


--  作者:GD007
--  发布时间:2016/9/9 9:56:00
--  
謝謝了,再認真學習下