查询代码如下：Dim filter As String
Dim txt As String = e.Form.Controls("textbox1").text
Dim tbl As Table = Tables("材料")
Dim ytp As WinForm.CheckBox = e.Form.Controls("有图片")
If ytp.Checked = False Then
If txt = "" Then
Filter = ""
Else
txt = "'%" & txt & "%'"
filter = "(品牌拼音简码 Like " & txt & " Or 定额编码 Like " & txt & " Or 材料名称 Like " & txt & " Or 规格 Like " & txt & " Or 品牌 Like " & txt & " Or 型号 Like " & txt & "Or 供应商 Like " & txt & ") "
End If
Else
If txt = "" Then
Filter = "图片 is not null"
Else
txt = "'%" & txt & "%'"
filter = "( (品牌拼音简码 Like " & txt & " Or 定额编码 Like " & txt & " Or 材料名称 Like " & txt & " Or 规格 Like " & txt & " Or 品牌 Like " & txt & " Or 型号 Like " & txt & "Or 供应商 Like " & txt & ") and 图片 is not null ) "
End If
End If
If filter > "" Then
DataTables("材料").RemoveFor(filter)
DataTables("材料").AppendLoad(filter)
Tables("材料").Filter = filter
'Tables("材料").sort= "[_Identify] DESC "
Else
此主题相关图片如下：查询表后为什么行状态成了修改了行.jpg
DataTables("材料").LoadFilter = filter
DataTables("材料").load
Tables("材料").Filter = filter
' Tables("材料").sort= "[_Identify] DESC "
End If
加好友 
发短信
Post By：2017/8/20 13:51:00 [只看该作者]
