主题：动态加载出错

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