-- 作者:SZDVYE
-- 发布时间:2012/10/29 11:26:00
--
我是在组合框中的TEXTCHANGED中加入的代码,我现在登记表的所以资料也不过是800条
代码如下:
Dim txxt As String = e.ComboBox.Text Dim tbbl As Table = Tables("登记表")
If txxt = "" Then tbbl.Filter = "" Else txxt = "\'*" & txxt & "*\'" tbbl.Filter = "清单号 Like " & txxt & " Or 单号 Like " & txxt & " Or 单位 Like " & txxt & " Or 品名 Like " & txxt & " Or 合同号 Like " & txxt & " Or 备注 Like " & txxt End If
此主题相关图片如下:qq截图20121029111911.jpg
此主题相关图片如下:qq截图20121029111216.jpg
此主题相关图片如下:qq截图20121029111119.jpg
|