三个问题请教：

一是筛选树nodedoubleclick代码有错。仿造帮助中的代码，按也知道是年份和逻辑列引用那里有问题，如何改一下？

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow
    Dim Year As Integer = dr("年")
    Select Case e.Node.Level
        Case 0
            Filter ="[是否] = \'" & dr("是否") & "\'"
        Case 1
            Filter ="[是否] = \'" & dr("是否") & "\' And Year(日期) = " & Year \'"
    End Select
End If
With DataTables("任务组")
    .LoadFilter = Filter \'设置加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = 5 \'每页5行
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

第二，如何把代码的false和true改成我想要的中文标题，如“进行中”，“已完成”

第三，如果能做到，加载树的时候，自动把false的节点全部打开，但true的全部关闭？