在loadusersetting中加入如下代码：

If User.group <> "易装生产" And User.group <> "复竹服务" And User.group <> "衢州千年舟板材"  Then
    DataTables("销售定单主表").LoadFilter = "所属公司 = \'" & User.group & "\'"
End If
DataTables("销售定单主表").Load()

在打开项目时可以按语句条件加载，但是用加载树之后，会把所有列都加载出来，未按条件加载，请问是什么原因。能否实现菜单中的加载树也按用户设定的权限加载。