其它表格也需要有【业务员】列吧?或者是和【业务员】列相关。
然后代码这样写
If User.Name = "张经理" Then
DataTables("订单").LoadFilter = ""
DataTables("表A").LoadFilter = ""
DataTables("表B").LoadFilter = ""
Else
DataTables("订单").LoadFilter = "业务员 = '" & User.Name & "'"
DataTables("表A").LoadFilter = "业务员 = '" & User.Name & "'"
DataTables("表B").LoadFilter = "业务员 = '" & User.Name & "'"
End If
DataTables("订单").Load()
DataTables("表A").Load
DataTables("表B").Load