想要目录树2、3、4自动生成，如果是管理员登录，则根据所有行生成目录树，如果是非管理员登录，则仅根据本公司的行生成目录树。用户分组依据为企业名称。
下面这段代码不生成目录树，怎样改一下？谢谢
'打开页面后,依据《组织机构和职责》,《安全目标》自动生成目录树,展开目录树所有节点
Dim tr1 As WinForm.TreeView = e.Form.Controls("TreeView1")
tr1.ExpandAll()
Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim tr3 As WinForm.TreeView = e.Form.Controls("TreeView3")
If _usergroup = "管理员" Then
tr2.BuildTree("组织机构和职责", "企业名称|部门设置|岗位设置|第四层机构设置|第五层机构设置|第六层机构设置")
tr3.BuildTree("年度安全目标", "企业名称|目标主题|目标内容")
Else
tr2.BuildTree("组织机构和职责", "企业名称|部门设置|岗位设置|第四层机构设置|第五层机构设置|第六层机构设置" ,"企业名称 = '" & _Usergroup & "'")
tr3.BuildTree("年度安全目标", "企业名称|目标主题|目标内容","企业名称 = '" & _Usergroup & "'")
End If
tr2.ExpandAll()
tr3.ExpandAll()
Dim tr4 As WinForm.TreeView = e.Form.Controls("TreeView4")
tr4.BuildTree("年度安全目标", "企业名称|目标主题|目标内容")
tr4.ExpandAll()
[此贴子已经被作者于2018/4/20 20:22:55编辑过]
加好友 
发短信
Post By：2018/4/20 20:22:00 [只看该作者]
