Syscmd.Project.Save()
DataTables("劳务人员工资发放记录表_Table1").LoadTop= 10
DataTables("劳务人员工资发放记录表_Table1").LoadPage = 0
DataTables("劳务人员工资发放记录表_Table1").LoadOver = "_Identify"
DataTables("劳务人员工资发放记录表_Table1").LoadReverse = True
DataTables("劳务人员工资发放记录表_Table1").Load()
Tables("劳务人员工资发放记录表_Table1").sort="工资所属月份"
If User.Name = "开发者" Or User.Name = "管理员" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELEC T DISTINCT 项目名称,施工合同段,劳务队名称,工资所属月份 Fro m {劳务人员工资发放记录表}"
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 项目名称,施工合同段,劳务队名称,工资所属月份 Fro m {劳务人员工资发放记录表} where 承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 in ('" & User.Roles.replace(",","','") & "')"
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("劳务人员工资发放记录表_Table1").TotalPages
vars("劳务人员工资发放记录表filter") = DataTables("劳务人员工资发放记录表_Table1").LoadFilter