Dim txt As String = RibbonTabs("电梯基础信息表").Groups("生成信息表").Items("搜索").Items("文本框1").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
加好友 
发短信
Post By：2015/5/17 14:49:00 [显示全部帖子]
