[求助]加载树不同用户加载不同数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，好

我已经在加载表针对不同的用户权限在加载表的时候做了加载设置。但是通过菜单加载树加载的时候代码不受限制，应该如何修改？

表权限写在可 loaduser -project 菜单使用，加载树 MainTable.OpenLoadTree()

If User.Group = "销售" Then

DataTables("合同录入系统").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("理财合同登记").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("酒会登记").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("旅游登记").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("收款收据").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("我的意向客户").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("我的客户").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("业务员信息表").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("邮件打印").LoadFilter = "业务员 = '" & User.name & "'"

DataTables("信封打印系统").LoadFilter = "业务员 = '" & User.name & "'"

ElseIf User.Group = "团队长" Then

Dim names As String = DataTables("业务员信息表").GetComboListString("姓名", "团队 = '" & user.name & "'")

DataTables("合同录入系统").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("理财合同登记").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("酒会登记").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("旅游登记").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("收款收据").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("我的意向客户").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("我的客户").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("业务员信息表").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("邮件打印").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

DataTables("信封打印系统").LoadFilter = "业务员 in ('" & names.Replace("|", "','") & "')"

ElseIf User.Group = "经理" Then

Dim names As String = DataTables("业务员信息表").GetComboListString("姓名", "部门 = '" & user.name & "'")