以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 输入框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=35128) |
||||
-- 作者:FB学生 -- 发布时间:2013/6/24 19:02:00 -- 输入框 请教:输入框中如何设定提示字符,如:“请输入模糊查询字符!”只要一编辑,就自动隐藏 |
||||
-- 作者:狐狸爸爸 -- 发布时间:2013/6/24 19:14:00 -- 设计的时候,设置文本框默认值:请输入模糊查询字符!
设置文本框的Enter事件:
If e.Sender.Value = "请输入模糊查询字符!" then e.Sender.Value = "" End If
|
||||
-- 作者:FB学生 -- 发布时间:2013/6/26 16:22:00 -- 如果不用这个输入框了我还要叫它显示出来呢 |
||||
-- 作者:Bin -- 发布时间:2013/6/26 16:31:00 -- 那么在Lave 事件中 If e.Sender.Text = "" then e.Sender.Text = "请输入模糊查询字符!" End If [此贴子已经被作者于2013-6-26 16:31:36编辑过]
|
||||
-- 作者:FB学生 -- 发布时间:2013/6/26 17:24:00 -- 我离开控件怎么就开始执行模糊筛选了啊 |
||||
-- 作者:Bin -- 发布时间:2013/6/26 17:26:00 -- 你代码有问题吧 上例子 |
||||
-- 作者:FB学生 -- 发布时间:2013/6/26 17:31:00 -- 文本框Textchanged的事件是这个 Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("订单汇总") 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 |
||||
-- 作者:Bin -- 发布时间:2013/6/26 17:32:00 -- 能否上个例子? |
||||
-- 作者:FB学生 -- 发布时间:2013/6/26 17:39:00 --
密码123654 |
||||
-- 作者:Bin -- 发布时间:2013/6/26 17:47:00 -- .
|