假如定义了全局自定义用户_username的话是不是这样:
If e.Row("业务员") <> _UserName Then Tables("表A").Filter = "[业务员] = '" & _UserName &End If