代码这样写,LoadUserSetting
If User.Group = "市场部" Then
DataTables("合同台帐").LoadFilter = ""
DataTables("合同管理明细").LoadFilter = ""
DataTables("其他合同").LoadFilter = ""
Else
DataTables("合同台帐").LoadFilter = "录入人员 = '" & User.Name & "'"
'DataTables("合同管理明细").LoadFilter = "录入人员 = '" & User.Name & "'"
DataTables("其他合同").LoadFilter = "录入人员 = '" & User.Name & "'"
End If
DataTables("合同台帐").Load()
DataTables("合同台帐").LoadChildren("合同管理明细")
DataTables("其他合同").Load()