- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于orelse组合表达式的问题,请老师看一下！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112836)
-- 发布时间：2018/1/3 20:08:00
-- 关于orelse组合表达式的问题,请老师看一下！
此主题相关图片如下：qq图片20180103194820.png
有图为证，请老师看一下代码：
If _usergroup.Contains("管理员组") Then
ssfx.ComboList="总校|" & DataTables("分校").SQLGetComboListString("分校名称")
fxlb.ComboList= DataTables("分校").SQLGetComboListString("分校名称")
jztj=""
ElseIf _usergroup.Contains("权益组")
Dim Multi As String = DataTables("职员表").SQLFind("工号=\'" & _userzhanghao & "\'")("所属校区")
MessageBox.show(multi)
Dim Values() As String
Values = Multi.split("|")
For i As Integer = 0 To Values.Length - 1
If i > 0 Then
MessageBox.show("1")
jztj = jztj & " OrElse "
End If
jztj = jztj & "所属校区 Like \' % " & Values(i) & " % \'"
Next
MessageBox.show(jztj)
Dim dr As DataRow
dr=DataTables("职员表").SQLFind("工号=\'" & _username & "\'")
If dr IsNot Nothing Then \'如果找到的话
fxlb.ComboList=dr("所属校区")
ssfx.ComboList=dr("所属校区")
End If
Else
MessageBox.show("您无此管理权限!","提示")
Return
End If
DataTables("职员表").LoadFilter=jztj
DataTables("职员表").Load
此主题相关图片如下：qq图片20180103194758.png
Tables(e.form.name & "_职员列表").AutoSizeCols
Tables(e.form.name & "_职员列表").Cols.Frozen=2
-- 发布时间：2018/1/3 20:17:00
--
jztj = jztj & " OrElse "
改成
jztj = jztj & " Or "
-- 发布时间：2018/1/3 21:02:00
--
老师错误提示解决了，但还是加载不成功，你看看生成的代码是否正确？
DataTables("职员表").LoadFilter=jztj
jztj生成的就是：所属校区 Like \' % 泰安道朗 % \' Or 所属校区 Like \' % 长清银丰 % \' Or 所属校区 Like \' % 长清万德 % \' Or 所属校区 Like \' % 长清界首 % \'
-- 发布时间：2018/1/3 21:11:00
--
这个是datatable表,请老师帮一下，困扰多时了！
此主题相关图片如下：3.png
-- 发布时间：2018/1/3 22:53:00
--
jztj = jztj & "所属校区 Like \' % " & Values(i) & " % \'"
改成
jztj = jztj & "所属校区 Like \'%" & Values(i) & "%\'"