msgbox(_UserGroup)
If _UserGroup = "经理" Then
DataTables("公司收入分配明细表").LoadFilter = ""
Else
DataTables("公司收入分配明细表").LoadFilter = "1=2"
End If
DataTables("公司收入分配明细表").Load
就是简单设置加载条件而已,有什么好神奇的。
把帮助文档看一遍,其义自见