主题：加载时没反应，公式有问题？

这样试试：

Dim Filter As String
Select Case _UserName
    Case "张三"
        Filter = "[_Identify] IsNot Null" '其他用户记载所有行
    Case Else
        Filter = "姓名 = '" & _UserName & "'"
End Select

DataTables("数据表").LoadFilter = Filter
DataTables("数据表").Load()