2、在项目的LoadUserSetting事件中设置代码,加载用户负责的订单:
If User.Name = "张经理" Then DataTables("订单").LoadFilter = ""Else DataTables("订单").LoadFilter = "业务员 = '" & User.Name & "'"End IfDataTables("订单").Load()