设以下代码,在打开项目的时候显示不存在DataTables("劳务人员工资发放记录表_Table1"),"劳务人员工资发放记录表_Table1"是窗口中的SQLTable,请老师指导一下
If User.Name = "开发者" Or User.Name = "管理员" Then
DataTables("劳务人员工资发放记录表_Table1").LoadFilter = ""
Else
DataTables("劳务人员工资发放记录表_Table1").LoadFilter = "承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 in ('" & User.Roles.replace(",","','") & "')"
End If
DataTables("劳务人员工资发放记录表_Table1").LoadTop = 10
DataTables("劳务人员工资发放记录表_Table1").LoadPage = 0
DataTables("劳务人员工资发放记录表_Table1").LoadOver = "_Identify"
DataTables("劳务人员工资发放记录表_Table1").Load
Tables("劳务人员工资发放记录表_Table1").sort="工资所属月份"
Tables("劳务人员工资发放记录表_Table1").sort="工种"
在AfterOpenProject事件设下列代码:
With DataTables("劳务人员工资发放记录表_Table1")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 10
.LoadPage = 0
.LoadOver = "_Identify"
.Load()
End With
Tables("劳务人员工资发放记录表_Table1").sort="工资所属月份"