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

NodeMouseDoubleClick 语法为:

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(审核日期) = " & Cstr(Value(0)).substring(0,4)
        Case 1
            Filter ="Year(审核日期) = " &  Cstr(Value(0)).substring(0,4) & " And Month(审核日期) = " & Cstr(Value(1)).substring(0,Cstr(Value(1)).Index("月")) 

        Case 2
            Filter ="Year(审核日期) = " &  Cstr(Value(0)).substring(0,4)  & " And Month(审核日期) = " & Cstr(Value(1)).substring(0,Cstr(Value(1)).Index("月"))  & " And 审核= " & Cstr(Value(2)).substring(0,Cstr(Value(2)).Index("("))  
    End Select
End If
DataTables("证件信息").LoadFilter = Filter
DataTables("证件信息").Load()

试用版的例子发上来。

很多人都会，很快就会有人解答。

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

应该这样：

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()