加载树与权限管理

OpenLoadTree方法的加最后一个参数Filter很容易被人忽视，这是一个条件表达式，一旦指定此参数，那么只会根据符合此条件的行生成加载树；单击加载树中的节点，也只会加载符合此条件的行。
　

例如，假定希望雇员分组的用户在登录之后，只加载自己负责的数据，可以将打开加载树的代码改为：

Dim flt As String

If User.Group = "雇员" Then

    flt = "雇员 = '" & User.Name & "'"

End If

Tables("订单").OpenLoadTree("日期 YM|产品",150,100,True,flt)