用记登录设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim filter As String = "1=1"
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
vars("劳务人员登记表filter") = DataTables("劳务人员登记表").LoadFilter

主题：用记登录设置