以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  输入框  (http://www.foxtable.com/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
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理系统.foxdb

密码123654
--  作者:Bin
--  发布时间:2013/6/26 17:47:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理系统.foxdb