-- 作者:阆子天涯
-- 发布时间:2014/8/15 17:10:00
-- 动态加载
各位版主:
动态加载失败,具体代码如下,是否是因为品牌字段是表达式列的而导致的出货,,谢谢~~
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
此主题相关图片如下:20146232238997774.jpg

|