老师目录树代码如下,该如何修改才能放到AfterOpenProject事件下
Dim Filter As String = "1=1"
Dim dr = e.node.FullPath.split("\") '获取生成此节点的行
If e.Node.Text <> "加载所有数据" Then
Select Case e.Node.Level
Case 0
Filter = "[项目名称] = '" & dr(0) & "'"
Case 1
Filter = "[项目名称] = '" & dr(0) & "'And [施工合同段] = '" & dr(1) & "'"
Case 2
Filter = "[项目名称] = '" & dr(0) & "'And [施工合同段] = '" & dr(1) & "' And [劳务队名称] = '" & dr(2) & "'"
Case 3
Filter = "[项目名称] = '" & dr(0) & "'And [施工合同段] = '" & dr(1) & "' And [劳务队名称] = '" & dr(2) & "'And [工种] = '" & dr(3) & "'"
End Select
End If
If User.Name = "开发者" Or User.Name = "管理员" Then
DataTables("劳务人员登记表").LoadFilter = filter
'DataTables("劳务人员登记表").LoadOver = "工种"
DataTables("劳务人员登记表").LoadTop = 10
DataTables("劳务人员登记表").LoadPage = 0
DataTables("劳务人员登记表").LoadOver = "_Identify"
DataTables("劳务人员登记表").Load
Tables("劳务人员登记表").sort="工种"
Tables("劳务人员登记表.劳务人员工资发放记录表").sort="工资所属月份 DESC"
Else
DataTables("劳务人员登记表").loadfilter = "(承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 in ('" & User.Roles.replace(",","','") & "')) and " & Filter
'DataTables("劳务人员登记表").LoadOver = "工种"
DataTables("劳务人员登记表").LoadTop = 10
DataTables("劳务人员登记表").LoadPage = 0
DataTables("劳务人员登记表").LoadOver = "_Identify"
DataTables("劳务人员登记表").Load
Tables("劳务人员登记表").sort="工种"
Tables("劳务人员登记表.劳务人员工资发放记录表").sort="工资所属月份 DESC"
End If
e.Form.Controls("TextBox5").Value = 1 & "/" & DataTables("劳务人员登记表").TotalPages
vars("劳务人员登记表filter") = DataTables("劳务人员登记表").LoadFilter