TextBox_Leave()事假代码：离开控件后将控件文本默认值设为浅灰色的“请输入搜索关键字...”
e.Form.Controls("TextBox1").text="请输入搜索关键字..."
e.Form.Controls("TextBox1").ForeColor = Color.LightGray
TextBox_Enter()事件代码：获得焦点后将文本默认值清空，字体颜色设为黑色
e.Form.Controls("TextBox1").Text=""
e.Form.Controls("TextBox1").ForeColor=Color.Black
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
End If
以上代码均能正常执行，但问题是当文本框中没有内容时单击Table控件后不显示任何数据。原意是想显示所有行。
请问代码如何更改
加好友 
发短信
Post By：2015/12/23 13:43:00 [只看该作者]
