主题：[求助]关于user.roles在动态加载中的设置

我们可以用user.group进行下载权限的设置，也可以在user.roles上进行设置加载的类型，但是由一个问题就是，roles的属性是一个集合，用逗号隔开的，所以，如果是多选的话，应该如何设置？

在窗口的afterload上，设置加载树的sql语句，其中   roles有  A,B，C 三个角色，有些人是A,或者，A，B  或者 A,C角色，

后面的where 如何接？

比如：

‘cmd.CommandText = "S*ECT DISTINCT Year(创建时间) as 年,分类2 From {订单信息}  where  角色   in （'"user.roles"'）"

这句没有用，

                in换成like也没有用。

由于是多值，好像=也有问题。

这个该如何设置？

'''''''''加载树
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
cmd.C
If User.Type = UserTypeEnum.Administrator Or User.Type = UserTypeEnum.Developer Then

cmd.CommandText = "S*LECT DISTINCT Year(创建时间) as 年,分类2 From {订单信息}"

Else
cmd.CommandText = "S*LECT DISTINCT Year(创建时间) as 年,分类2 From {订单信息} where [分类2]  in （'" & user.roles & "'）"
End If

dt = cmd.ExecuteReader()
trv.BuildTree(dt,"年|分类2")
trv.Nodes.Insert("所有订单",0)

分类2 是角色的设置：   产品线A,产品线B,产品线C,产品线D,产品线E,产品线F

按照您的写法,msgbox得到的s*lect语句如下：

 

s*lect DISTINCT Year(创建时间) As 年,分类2 From {订单信息} where 分类2 In （ '产品线A','产品线B','产品线C','产品线D')

说明你的方法是对的。

但是结果还是错的，显示 '('附近有语法错误，再点击是“未将对象引用到对象的实例。”

您觉得可能哪个地方错？

我再测试看看。

不是这个逗号的问题。

上面11楼，管理员或者开发者登录是没有问题的。

说明这句话还是有问题。

试过了，也不是这个问题。没有折了，我试试msgbox的调试方法，一步一步试吧。明天汇报一下问题所在。

非管理员用户：

'''''''''加载树
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
cmd.C
If User.Type = UserTypeEnum.Administrator Or User.Type = UserTypeEnum.Developer Then

cmd.CommandText = "S*LECT DISTINCT Year(创建时间) as 年,分类2 From {订单信息}"

Else
msgbox("S*lect DISTINCT Year(创建时间) As 年,分类2 From {订单信息}  where  [分类2]  In （'" & user.roles.replace(",","','") & "'）")

cmd.CommandText = "S*LECT DISTINCT Year(创建时间) As 年,分类2  From {订单信息}  where  [分类2]  in （'" & user.roles.replace(",","','") & "'）"
msgbox(2)                                                           -----显示：2
End If
msgbox(3)                                                          ------显示：3
dt = cmd.ExecuteReader()
msgbox(4)                                                          ------出现错误 ‘（’  附近有语法错误。       
trv.BuildTree(dt,"年|分类2")
msgbox(5)                                                           ------显示5
trv.Nodes.Insert("所有订单",0)                                ------未将对象引用到对象的实例

                                                                     

而采用“管理员”，或者“开发者”登录是没有问题的。