- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]当前表当前列通用多值筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193184)
-- 发布时间：2024/8/24 20:45:00
-- [求助]当前表当前列通用多值筛选
此主题相关图片如下：通用当前表当前列2值筛选按钮代码求助.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:当前表当前列2值筛选.foxdb |
求助当前表当前列2值筛选按钮代码
下面代码无效求助修复
Dim t As Table = currenttable
Dim tb As String = t.cols(t.colsel).name
Dim qq As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim bb As WinForm.TextBox = e.Form.Controls("TextBox2")
Tables("\'" & t.name & "\'").Filter = "tb like \'%" & qq.text & "%\' and tb like \'%" & bb.text & "%\' "
[此贴子已经被作者于2024/8/24 21:53:34编辑过]
-- 发布时间：2024/8/25 7:45:00
--
你应该从头学起
-- 发布时间：2024/8/25 9:26:00
-- 回复：（y2287958）你应该从头学起
前辈说的对，主要是最近工作忙就要用来不及
-- 发布时间：2024/8/25 19:42:00
--
Dim t As Table = currenttable
Dim tb As String = t.cols(t.colsel).name
Dim qq As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim bb As WinForm.TextBox = e.Form.Controls("TextBox2")
t.Filter = tb & " like \'%" & qq.text & "%\' and " & tb & " like \'%" & bb.text & "%\' "