- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问如何在textbox的textchanged设置筛选代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40289)
-- 发布时间：2013/9/14 11:18:00
-- 请问如何在textbox的textchanged设置筛选代码
请问如何在textbox的textchanged设置筛选代码
我写的没反应
With e.Form
Dim txb1 As WinForm.TextBox = .Controls("c")
Tables("花名册").filter = "[姓名] Like \'*" & txb1.text & "*\'" Or "[职称] Like \'*" & txb1.text & "*\'"
End With
-- 发布时间：2013/9/14 11:22:00
--
Tables("花名册").filter = "[姓名] Like \'*" & e.sender.text & "*\' Or [职称] Like \'*" & e.sender.text & "*\'"
[此贴子已经被作者于2013-9-14 11:22:30编辑过]
-- 发布时间：2013/9/14 11:26:00
--
还要定义有.sender.text吗？
-- 发布时间：2013/9/14 11:28:00
--
本身这个控件的事件 使用 e.sener 就能获取本身这个控件
-- 发布时间：2013/9/14 11:39:00
--
还有问题，就是为何我一点击窗口中的表就没数据显示，点击textbox就显示呢
-- 发布时间：2013/9/14 11:40:00
--
不是很理解你的意思上个例子看看,是否你在离开焦点事件上设置了代码.
-- 发布时间：2013/9/14 11:44:00
--
就是为何我一点击窗口中的表就没数据显示，点击textbox就显示呢
此主题相关图片如下：qq图片20130914114112.jpg
我在textchanged加上筛选代码后，就是这样的，打开窗口有显示表数据，但一点表就变空白，然后再点textbox，表的数据又回来
此主题相关图片如下：qq截图20130914114332.png
-- 发布时间：2013/9/14 11:45:00
--
上例子
-- 发布时间：2013/9/14 14:42:00
--
根据图片，显示因为的你Text设置了默认值“请输入姓名或职称进行查询”。
这样改代码：
Dim tx As String = e.Sender.Text
if tx > "" AndAlso tx.StartsWith("请输入") = False then
Tables("花名册").filter = "[姓名] Like \'*" & tx & "*\' Or [职称] Like \'*" & tx & "*\'"
end if