主题：用逻辑列和年份做加载树碰到问题

三个问题请教：

 

一是筛选树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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

重新做了个附件在这里，数据源是内部表了，代码那里还是 “js”  ，引用有点小问题，请大家一并修改，