专家坐堂-如何加入进度条效果？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim txt As String = e.Form.Controls("TextBox23").Text

Dim dt As DataTable = DataTables("Record3")

If txt > "" Then

txt = "\'%" & txt & "%\'"

txt = "客户名 Like " & txt & " Or 车号1 Like " & txt & " Or 车号2 Like " & txt & " Or 车号3 Like " & txt & " Or 车号4 Like " & txt & " Or 车号5 Like " & txt & " Or 车号6 Like " & txt & " Or 车号7 Like " & txt & " Or 车号8 Like " & txt & " Or 车号9 Like " & txt & " Or 车号9 Like " & txt & " Or 车号10 Like " & txt & " Or 品种 Like " & txt & " Or 包装 Like " & txt & " Or 备注 Like " & txt & " Or 用户名 Like " & txt & " Or 重打用户 Like " & txt

Else

txt = ""

MessageBox.show("请输入要查找的车号","提示")

Return

End If

dt.LoadFilter = txt

dt.Load