主题：窗口中的权限

设计窗口的时候，Select语句设置为：

Select * Fro m {表名} where [_Identify] Is Null

窗口的AfterLoad时间：

If User.Name = "张经理" Then
    DataTables("窗口1_Table").LoadFilter = ""
Else
    DataTables("窗口1_Table1").LoadFilter = "业务员 = '" & User.Name & "'"
End If

DataTables("窗口1_Table").Load