msgbox(_UserGroup)
If _UserGroup = "经理" Then
DataTables("公司收入分配明细表").LoadFilter = ""
Else
DataTables("公司收入分配明细表").LoadFilter = "1=2"
End If
DataTables("公司收入分配明细表").Load