设置一个加载条件,只加载 user = 业务员姓名 和 业务员姓名为空的行,如何修改以下代码?
If User.Group = "经理" Then
DataTables("到访登记表").LoadFilter = ""
DataTables("合同登记").LoadFilter = ""
DataTables("意向客户表").LoadFilter = ""
DataTables("收款确认单").LoadFilter = ""
DataTables("酒会登记系统").LoadFilter = ""
DataTables("安邦人寿数据库").LoadFilter = ""
DataTables("中国人寿数据库").LoadFilter = ""
DataTables("英大人寿数据库").LoadFilter = ""
DataTables("交银康联数据库").LoadFilter = ""
Else
DataTables("到访登记表").LoadFilter = "业务员 = '" & User.Name & "'"
DataTables("合同登记").LoadFilter = "业务员 = '" & User.Name & "'"
DataTables("意向客户表").LoadFilter = "业务员 = '" & User.Name & "'"
DataTables("收款确认单").LoadFilter = "业务员 = '" & User.Name & "'"
DataTables("酒会登记系统").LoadFilter = "业务员 = '" & User.Name & "'"
End If