主题：加载树与权限管理问题

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

　

Dim flt As String

If User.Group = "雇员" Then

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

End If

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

Dim flt As String

If User.Group = "雇员" Then

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

End If

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

请问这段代码在什么位置设置？ 谢谢！