我设计了一个周报打印窗口，需要生成一个目录树，在点击目录节点时，需要筛选出符合目录节点的行并同时要满足必须是经过审核的，即未经审核的行项目不能显示出来，我知道我的程序肯定有问题，但不知如何修改，麻烦执教，谢谢了。程序如下：

窗口与控件事件

 

监造周报打印窗口_AfterLoad

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView3")

tr.BuildTree("监造周报", "监造是否完成|项目经理|监理人员")

tr.Nodes.Insert("显示所有行",0)

DataTables("监造周报").loadFilter = "[审核] Is NOT Null"

监造周报打印窗口_TreeView3_NodeMouseClick

 

Dim Value() As String

Value = e.Node.FullPath.Split("\\")

Select Case e.Node.Level

    Case 0

        If e.Node.Text = "显示所有行" Then

            \'Tables("监造周报").Filter = ""

            Tables("监造周报").Filter = "[审核] Is NOT Null"

        Else

            Tables("监造周报").Filter = "[监造是否完成] = \'" & Value(0) & "\'"

            Tables("监造周报").Filter = "[审核] Is NOT Null"

        End If

    Case 1

        Tables("监造周报").Filter = "[监造是否完成] = \'" & Value(0) & "\' And [项目经理] = \'" & Value(1) & "\'"

        Tables("监造周报").Filter = "[审核] Is NOT Null"

    Case 2

        Tables("监造周报").Filter = "[监造是否完成] = \'" & Value(0) & "\' And [项目经理] = \'" & Value(1) & "\' And [监理人员] = \'" & Value(2) & "\'"

        Tables("监造周报").Filter = "[审核] Is NOT Null"

End Select

前面我也是加了AND，可是却不行，出错，估计还是语句的符号没写对，对“”，‘’总是概念不清。