- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 按角色及用户名加载错误 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120805)
-- 发布时间：2018/6/24 11:24:00
-- 按角色及用户名加载错误
以下代码显示如图错误，请问老师是什么问题？各机构是按角色加载，劳务队负责人是按用户名加载，难道不能合在一起使用吗
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
-- 发布时间：2018/6/24 11:47:00
--
在窗口的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
-- 发布时间：2018/6/24 21:15:00
--
User.Roles有问题，你是不是没有给用户设置【角色】属性？
如果没有设置，要判断一下，如
If User.Roles = Nothing Then
else
End If