主题：[求助]多值列目录树

还有一个问题，下面生成的目录树 统计数量，能按降序排列嘛？

'多值列,生成目录树,单选模式

 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim stra As String = "|" & DataTables("员工资料").GetComboListString("姓名","分配任务组别 = '深化设计'","") & "|"

Dim stre As String = "|" & DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人","深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null","") & "|"

    

For Each dr As DataRow In DataTables("室内设计项目").DataRows

    If dr("深化设计完成时间节点_负责人") > "" Then

        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")

            Dim nd As WinForm.TreeNode

            If s > "" AndAlso stra.Contains("|" & s & "|") AndAlso stre.Contains("|" & s & "|") AndAlso trv.Nodes.Contains(s) = False Then

                nd = trv.nodes.Add(s)

nd.text = nd.name & "  未完成 " & DataTables("室内设计项目").compute("count(深化设计完成时间节点_负责人)", "深化设计完成时间节点_负责人 like '%" & s & "%' and (深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)")

 

End If

        Next

    End If

Next 

msgbox(flt) 显示什么条件

 1、21楼生成的 目录树的数量如果作为目录树节点开头的文字，再是负责人，是否容易实现降序？

2、目录树筛选增加一个条件，下面代码有点问题，辛苦帮忙修改了

Tables("室内设计项目").Filter = " "

Dim trv As WinForm.TreeView = e.Sender

Dim flt As String

For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态

    nd.Checked = False

Next

If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态

    e.node.ParentNode.Checked = False

End If

For Each nd As WinForm.TreeNode In trv.AllNodes

    If nd.Checked Then

        If flt > "" Then

            flt = flt & " Or "  '注意用or而不是And

        End If

        flt = flt & "( 深化设计完成时间节点_负责人 like '%" & nd.Name & "%')"  

    End If

Next

'Tables("室内设计项目").Filter = flt '这个已完成的也显示

Tables("室内设计项目").Filter  = "flt And 项目状态 <> '暂停' And "(深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)""

多看几遍：http://www.foxtable.com/webhelp/scr/1284.htm

Tables("室内设计项目").Filter  = flt & " And 项目状态 <> '暂停' And (深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)"

谢谢 蓝大师指点

还有一个报错辛苦指点

 

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

点击浏览该文件:afterchecknode取消最后一个勾选报错.foxdb

此主题相关图片如下：报错26.jpg

 

 afterchecknode  代码：   取消最后一个勾选报错见上图

 

Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态
    nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Checked Then
        If flt > "" Then
            flt = flt & " Or "  '注意用or而不是And
        End If
         flt = flt & "( 深化设计完成时间节点_负责人 like '%" & nd.Name & "%')" '这个是可以的
               'flt & " And 项目状态 <> '暂停' And ( 深化设计完成时间节点_负责人 Like '%" & nd.Name & "%') And (深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)"

    End If
Next

Tables("室内设计项目").Filter  = flt & " And 项目状态 <> '暂停' And (深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)"

 

Tables("室内设计项目").Filter  = flt & IIF( flt  > ""," And ","") &  "项目状态 <> '暂停' And (深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)"

蓝大师，辛苦再帮忙看看，目录树单选时正确，但是如果目录树多选，筛选不对了，

项目状态：暂停   和已完成的项目要不显示，求助

 

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

点击浏览该文件:暂停和已完成显示不对.foxdb

此主题相关图片如下：暂停和已完成显示不对.png

 大师，上楼代码在那个事件属性用呢？
前楼项目中没有 flt 函数，不懂上楼代码怎么用，请指教

 

在你 AfterCheckNode 事件里面的后面的代码写代码啊。