Foxtable(狐表)用户栏目专家坐堂 → SQLTable的加载问题


  共有1734人关注过本帖平板打印复制链接

主题:SQLTable的加载问题

帅哥哟,离线,有人找我吗?
aza520
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5155 威望:0 精华:0 注册:2017/10/22 10:15:00
SQLTable的加载问题  发帖心情 Post By:2018/8/2 16:44:00 [只看该作者]

设以下代码,在打开项目的时候显示不存在DataTables("劳务人员工资发放记录表_Table1"),"劳务人员工资发放记录表_Table1"是窗口中的SQLTable,请老师指导一下


在LoadUserSetting事件设下列代码:

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="工资所属月份"

 回到顶部