主题：动态加载

Dim  Filter As  String

If  Filter<> "管理员" Then
    filter = "大类 like '" & user.group & "*'"
Else
    filter = ""
End If

DataTables("出入库明细").LoadFilter = filter
DataTables("库调明细表_主表").LoadFilter = filter
DataTables("货号信息").LoadFilter = filter

DataTables("出入库明细").Load
DataTables("库调明细_副表").Load
DataTables("库调明细表_主表").Load
DataTables("货号信息").Load