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

同样的登录用户设置，按条件加载，绝大部分用户都能正常加载，只有一个用户登录时会加载所有的数据。检查了该用户设置，确认无误。请问老师，可能是什么问题

以下是引用aza520在2018/9/14 9:14:00的发言：
同样的登录用户设置，按条件加载，绝大部分用户都能正常加载，只有一个用户登录时会加载所有的数据。检查了该用户设置，确认无误。请问老师，可能是什么问题

1、输出所有代码，搜索 LoadFilter、Load的代码

http://www.foxtable.com/webhelp/scr/1987.htm

2、在LoadFilter的代码那里，弹出你设置的条件分别是什么，看是否正确

老师，找不到原因。我想通过在打开项目的时候，点击菜单按钮打开窗口时，直接触发窗口中的加载树双击加载事件，这样就可以解决，该怎么写这个代码

菜单按钮代码：

Forms("劳务人员登记表").Open()

MainTable = Tables("劳务人员登记表")

Dim btn As WinForm.TreeView = Forms("劳务人员登记表").Controls("TreeView1")

btn.PerformClick()

拷贝目录树的代码出来，修改，然后写到afterOpenProject等事件去。

老师目录树代码如下，该如何修改才能放到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

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

主题：用记登录设置