动态增加的LoadTree加载树
Dim trv
As WinForm.LoadTree =
e.Form.Controls("LoadTree1")
trv.Build(Tables("窗口1_Table1"), "日期
YM|产品", 5)
在 BeforeLoad 使用如下代码不生效筛选条件
If _UserRoles = "商务经理" Then '如果用户分组是雇员
Dim fl As String = "[商务经理] = '" & _UserName & "'"
e.DataTable.LoadFilter = fl
e.DataTable.Load()
ElseIf _UserRoles = "营销总监" Then '如果用户分组是雇员
Dim fl As String = "[营销总监] = '" & _UserName & "'"
e.DataTable.LoadFilter = fl
e.DataTable.Load()
ElseIf _UserRoles = "销售主管" Then '如果用户分组是雇员
Dim fl As String = "[销售主管] = '" & _UserName & "'"
e.DataTable.LoadFilter = fl'
e.DataTable.Load()
End If
[此贴子已经被作者于2024/3/26 23:14:51编辑过]