参考代码
Dim filter As String = "1=2"For Each s As String In user.Roles.split(",") filter &= " or 公司名称 = '" & s & "'"Next
msgbox(filter)
加好友 
发短信
Post By：2017/12/14 23:48:00 [显示全部帖子]
