
加好友 发短信
等级:婴狐
帖子:7
积分:135
威望:0
精华:0
注册:2013/5/29 13:34:00
|
Post By:2013/9/11 19:45:00 [显示全部帖子]
将TextBox物料编号的Textchanged事件代码设为:
Dim txt As String = e.Form.Controls("TextBox").Text Dim tbl As Table = Tables("窗口1_Table1") If txt = "" Then tbl.Filter = "" Else txt = "'*" & txt & "*'" tbl.Filter = "物料编号 Like " & txt
End If
|
|