以文本方式查看主题 - 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 做一個查詢窗口,在對話框任意輸入內容,查找顯示
|
-- 作者:有点蓝 -- 发布时间:2016/9/9 9:14:00 -- 如果不是副本表,直接使用原来的表名,比如 Dim tbl As Table = Tables("表A") |
-- 作者:GD007 -- 发布时间:2016/9/9 9:56:00 -- 謝謝了,再認真學習下 |