--
If User.Name = "管理员" Or User.Name = "开发者" Then
\'DataTables("基本信息表").LoadFilter = "单位名称<>\'公司\' and 单位名称<>\'天津公司\'"
\' DataTables("开票收款表").LoadFilter = "单位名称<>\'公司\' and 单位名称<>\'天津公司\'"
\'DataTables("收入成本表").LoadFilter = "单位名称<>\'天津公司\' and 单位名称<>\'天津公司\'"
\'DataTables("结算情况表").LoadFilter = "单位名称<>\'公司\' and 单位名称<>\'天津公司\'"
\'DataTables("库存情况表").LoadFilter = "单位名称<>\'公司\' and 单位名称<>\'天津公司\'"
Else
\'DataTables("基本信息表").LoadFilter = "核算单位 = \'" & User.Name & "\'"
\'DataTables("开票收款表").LoadFilter = "核算单位 = \'" & User.Name & "\'"
\'DataTables("收入成本表").LoadFilter = "核算单位 = \'" & User.Name & "\'"
\'DataTables("结算情况表").LoadFilter = "核算单位 = \'" & User.Name & "\'"
\'DataTables("库存情况表").LoadFilter = "核算单位 = \'" & User.Name & "\'"
End If
\'DataTables("开票收款表").Load()
\'DataTables("收入成本表").Load()
\'DataTables("结算情况表").Load()
\'DataTables("库存情况表").Load()
\'DataTables("基本信息表").Load()