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

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