各位版主:
动态加载失败,具体代码如下,是否是因为品牌字段是表达式列的而导致的出货,,谢谢~~
Dim Filter As String
If Filter<> "管理员" Then filter = "品牌 like '" & user.group & "*'"Else filter = ""End If
DataTables("出入库明细").LoadFilter = filterDataTables("库调明细表_主表").LoadFilter = filterDataTables("货号信息").LoadFilter = filter
DataTables("出入库明细").LoadDataTables("库调明细_副表").LoadDataTables("库调明细表_主表").LoadDataTables("货号信息").Load