代码如下:
Dim cmb As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")
Dim s As String = "1=2 "
For Each s1 As String In cmb.text.split(",")
s = s & " or 身份属性 like '%" & s1 & "%' "
Next
msgbox(s) 这个部分是可以正确弹出所选择的值内容
Dim sql As String
sql = "Sele ct * From {干警信息} where 所在单位='"& _UserGroup & " And " & s & ""
DataTables("干警信息").SQLLoad(sql)
运行结果
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.1.19.19
错误所在事件:加载[干警信息]失败!
详细错误信息:
' ' 附近有语法错误。
字符串 ' ' 后的引号不完整。
如果红色部分更改为
DataTables("干警信息").SQLLoad("(" & s & ") And 所在单位= '" & _usergroup & "' ")
运行会提示出错
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.1.19.19
错误所在事件:加载[干警信息]失败!
详细错误信息:
'1' 附近有语法错误。