[求助]文本框提示内容的隐藏显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文本框提示内容的隐藏显示

共有3442人关注过本帖树形打印复制链接主题：[求助]文本框提示内容的隐藏显示

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/24 19:04:00 [只看该作者]

点击了，只要文本框是空值，就有提示，不是空值，就不会提示

liujywwy

小大 22楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/25 9:26:00 [只看该作者]

正常情况打开临时版本跟踪表，临时版本编号和需求编号文本框提示都是正确的。

但是当你点击了缺省按钮或者全部按钮，需求编号的文本框就不提示了。文本框是没有内容的。

此主题相关图片如下：正常情况.png

此主题相关图片如下：点击缺省后.png

有点甜

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/25 9:34:00 [只看该作者]

你点击按钮的时候，清空了文本框的内容，不要清空

xqbh.text = ""

abcd1998

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：931 威望：0 精华：0 注册：2013/12/6 10:56:00

Post By：2014/11/25 9:41:00 [只看该作者]

加油啊啊

liujywwy

小大 25楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/25 10:04:00 [只看该作者]

以下是引用有点甜在2014-11-25 9:34:00的发言：

你点击按钮的时候，清空了文本框的内容，不要清空

xqbh.text = ""

假如我点击"缺省"或者"全部"按钮,对xqbh.text不清空，那么下次点击“查询”就会保留之前的需求编号，导致查询出错。

缺省按钮代码：

DataTables("临时版本跟踪表").load()
Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim bdjx As WinForm.ComboBox = e.Form.Controls("博达机型")
Dim xqbh As WinForm.TextBox = e.Form.Controls("需求编号")
kh.text=""
bdjx.text=""
xqbh.text=""

查询按钮代码：

Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim bdjx As WinForm.ComboBox = e.Form.Controls("博达机型")
Dim xqbh As WinForm.TextBox = e.Form.Controls("需求编号")
DataTables("临时版本跟踪表").LoadFilter ="客户 like '%" & kh.text & "%' and 博达机型 like '%" & bdjx.text & "%' and [需求编号] like '%" & xqbh.text & "%'"
DataTables("临时版本跟踪表").Load

有点甜

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/25 10:07:00 [只看该作者]

那你赋值 "请输入xx编号"

然后在查询的时候，判断如果是 "请输入xx编号" 就额外处理

liujywwy

小大 27楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/11/25 10:24:00 [只看该作者]

以下是引用有点甜在2014-11-25 10:07:00的发言：

那你赋值 "请输入xx编号"

然后在查询的时候，判断如果是 "请输入xx编号" 就额外处理

我改了一下，应该对的吧。

缺省按钮代码：

查询代码：

Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim bdjx As WinForm.ComboBox = e.Form.Controls("博达机型")
Dim xqbh As WinForm.TextBox = e.Form.Controls("需求编号")
If xqbh.text = "请输入需求编号" Then
xqbh.text = ""
End If
DataTables("临时版本跟踪表").LoadFilter ="客户 like '%" & kh.text & "%' and 博达机型 like '%" & bdjx.text & "%' and [需求编号] like '%" & xqbh.text & "%'"
DataTables("临时版本跟踪表").Load

有点甜

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/25 10:26:00 [只看该作者]

不要设置 xqbh.text = "" 啊

Dim kh As WinForm.ComboBox = e.Form.Controls("客户")
Dim bdjx As WinForm.ComboBox = e.Form.Controls("博达机型")
Dim xqbh As WinForm.TextBox = e.Form.Controls("需求编号")

If xqbh.text = "请输入需求编号" Then
DataTables("临时版本跟踪表").LoadFilter ="客户 like '%" & kh.text & "%' and 博达机型 like '%" & bdjx.text & "%'"

Else

DataTables("临时版本跟踪表").LoadFilter ="客户 like '%" & kh.text & "%' and 博达机型 like '%" & bdjx.text & "%' and [需求编号] like '%" & xqbh.text & "%'"
End If

DataTables("临时版本跟踪表").Load

下一主题 >> << 上一主题

总数 28 上一页 1 2 3

主题：[求助]文本框提示内容的隐藏显示