Dim txt As String = e.Form.Controls("TextBox7").Value 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：2011/8/20 15:49:00 [显示全部帖子]
