Dim Filter As String
Filter = _UserGroup 全局变量,用户所属的群组,根据群组不同,实现不同品牌的人登录加载对应不同品牌的数据
If Filter<> "管理员" Then
filter = "品牌 like \'" & _UserGroup & "*\'"
Else
filter = ""
End If
DataTables("出入库明细").LoadFilter = filter
DataTables("库调明细表_主表").LoadFilter = filter
DataTables("货号信息").LoadFilter = filter
DataTables("出入库明细").Load
DataTables("库调明细_副表").Load
DataTables("库调明细表_主表").Load
DataTables("货号信息").Load