Dim txt As String = e.Form.Controls("sxtxt").Text
If txt ="" Then
MessageBox.Show("填入查询条件")
e.Form.Controls("sxtxt").Select
Else
txt = "'*" & txt & "*'"
DataTables("商品明细").LoadFilter = ""
DataTables("商品明细").Load()
'Tables("商品明细").Filter = "商品条形码 Like " & txt &" Or 商品编码 Like " & txt &" Or 商品名称 Like " & txt & " Or 商品简称 Like " & txt &" Or 商品规格 Like " & txt &" Or 备注 Like " & txt
------------------------------------
改成下面，提示至少一个参数没有被指定值。
-------------------------------------
Dim txt As String = e.Form.Controls("sxtxt").Text
If txt ="" Then
MessageBox.Show("填入查询条件")
e.Form.Controls("sxtxt").Select
Else
txt = "'*" & txt & "*'"
DataTables("商品明细").LoadFilter = ""
Dim fl As String
fl= "商品条形码 Like " & txt &" Or 商品编码 Like " & txt & " Or 商品名称 Like " & txt & " Or 商品简称 Like " & txt & " Or 商品规格 Like " & txt & " Or 备注 Like " & txt
DataTables("商品明细").LoadFilter=fl
MessageBox.Show(fl)
DataTables("商品明细").Load()
加好友 
发短信
Post By：2013/3/18 1:50:00 [只看该作者]
