Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("申购信息查询_申购明细")
Dim Filter As String
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
End If
If e.Form.Controls("rdoyicai").Checked = True ' 如果采购状态选择了"已采购"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "采购状态 = True"
End If
If e.Form.Controls("rdoweicai").Checked = True ' 如果采购状态选择了"未采购"
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "采购状态 = False Or 采购状态 Is Null"
End If
If e.Form.Controls("rdoall").Checked = True ' 如果采购状态选择了"全部"
tbl.ApplyFilter = False
End If
If Filter > "" Then
tbl.Filter = Filter
End If
msgbox(Filter)
此主题相关图片如下：qq拼音截图未命名.jpg
请问各位大牛是什么问题？
加好友 
发短信
Post By：2019/1/21 17:43:00 [只看该作者]
