主题：[求助]目录树下拉时的筛选

下拉之前赋值。

vars("部门编号") = "01"

DropDownOpening事件

Dim tr As WinForm.TreeView = e.Form.Controls("部门档案.tv")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("部门档案")
tr.StopRedraw()
tr.Nodes.Clear
Dim gz As String = DataTables("分类编码方案").Find("基础档案名称 = '部门档案'")("编码规则")
For Each dr As DataRow In dt.Select("部门编号 like '" & vars("部门编号") & "%'","编码规则")
    If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then
        nd = tr.Nodes.Add(dr("编码规则"),dr("编码规则") & " " & dr("编码名称"))
        Functions.Execute("AddChildren",nd,dt,gz)
    End If
Next
tr.ResumeRedraw()