LoadUserSetting
If usna Like
"*业务*" Or usna Like "*财务*"
Or usna="admin" Or usna="*总经理*" Then
DataTables("报价单").LoadFilter =
""
Else If usna Like "*模压*" Then
DataTables("报价单").LoadFilter =
"[类别] = '模压半成品'"
Else
DataTables("报价单").LoadFilter =
"订单编号 not like '%@%'"
End If
DataTables("报价单").Load()
然后在窗口筛选或取消筛选
DataTables("报价单").LoadFilter=""
DataTables("报价单").Load()
Tables("报价单").Filter=""
当初设置的userstting模压只能加载类别为半成品的条件无效了,怎样保证LoadUserSetting的设置一直有效
[此贴子已经被作者于2018/6/21 16:34:40编辑过]