主题：请位老师帮助我解决加载逻辑列的语法,怎样加载审核与未审核的数据?

你的审核列是逻辑列吧，逻辑列不是字符型，不能用引号。

应该这样：

Dim Filter As String = ""
If e.Node.Name <> "加载所有数据" Then
    Dim Value()As String
    Value = e.Node.FullName.Split("\")
    Select Case e.Node.Level
        Case 0
            Filter ="Year(审核日期) = " & Value(0)
        Case 1
            Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1)
        Case 2
            Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1) & " And 审核= " & cbool(Value(2))
    End Select
End If
DataTables("证件信息").LoadFilter = Filter
DataTables("证件信息").Load()

你生成加载树的统计部分的条件代码，也需要改一下。
 
还有之前的不完善
 
  Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1) & " And 审核= " & cbool(Value(2))
 
 
请改为：

If Value(2) = True then

    Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1) & " And 审核= True"

Else

    Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1) & " And (审核= False Or 审核 Is Null)"

End If

加上双引号：

If Value(2) = “True” then

    Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1) & " And 审核= True"

Else

    Filter ="Year(审核日期) = " & Value(0) & " And Month(审核日期) = " & Value(1) & " And (审核= False Or 审核 Is Null)"

End If

还不行的话，做个例子文件发上来，我帮你看一下

我新增了一个窗口1，看看我是怎么做的，其实我说的方法正确，但是你不能硬套：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

你四行数据，没有审核的这样，你没有输入日期，所以没办法加载，你把这行的日期也输入。

因为你是根据日期生成的加载树。