按角色及用户名加载错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码显示如图错误，请问老师是什么问题？各机构是按角色加载，劳务队负责人是按用户名加载，难道不能合在一起使用吗

If User.Name = "开发者" Or User.Name = "管理员" Then

DataTables("劳务人员登记表").LoadFilter = ""

Else

DataTables("劳务人员登记表").LoadFilter = "承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 = '" & User.Name & "'"

End If

DataTables("劳务人员登记表").LoadOver="工种"

DataTables("劳务人员登记表").LoadReverse = True

DataTables("劳务人员登记表").LoadTop= 10

DataTables("劳务人员登记表").Load

Tables("劳务人员登记表").sort="工种"

此主题相关图片如下：4444.png

在窗口的AfterLoad设如下代码，也是显示如图错误

If User.Name = "开发者" Or User.Name = "管理员" Then

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELEC T DISTINCT 项目名称,施工合同段,劳务队名称 From {劳务人员登记表}"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt,"项目名称|施工合同段|劳务队名称")

trv.Nodes.Insert("加载所有数据",0)

Else

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELEC T DISTINCT 项目名称,施工合同段,劳务队名称 From {劳务人员登记表} where 承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 = '" & User.Name & "'"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt,"项目名称|施工合同段|劳务队名称")

trv.Nodes.Insert("加载所有数据",0)

End If

e.Form.Controls("TextBox5").Value = 1 & "/" & DataTables("劳务人员登记表").TotalPages

vars("劳务人员登记表filter") = DataTables("劳务人员登记表").LoadFilter

此主题相关图片如下：55555.png

User.Roles有问题，你是不是没有给用户设置【角色】属性？

如果没有设置，要判断一下，如

If User.Roles = Nothing Then

else

End If

主题：按角色及用户名加载错误