三个问题请教：
一是筛选树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的全部关闭？
此主题相关图片如下：qq截图20150804212255.png
此主题相关图片如下：qq截图20150804212326.png
[此贴子已经被作者于2015/8/4 21:27:23编辑过]
加好友 
发短信
Post By：2015/8/4 21:26:00 [只看该作者]
