主题：希望通过当前列名自动生成目录树

不明白你想说什么，直接用啊

 

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("编码")
tv.StopRedraw()
tv.Nodes.Clear
tv.Nodes.Add("全部")
For Each dr As DataRow In dt.Select("参数描述 = '单位隶属'")
    nd = tv.Nodes.Add(dr("参数编码"),dr("参数描述"))
    Functions.Execute("AddChildrenBM",nd,dt)
Next
tv.ResumeRedraw()

 

-----------------

 

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
For Each dr As DataRow In dt.Select("参数编码 like '" & nd.name & "%'","参数编码")
    Dim km As String = dr("参数编码")
    If km.StartsWith(nd.name) AndAlso km.Length = nd.Name.Length + 2 Then
        Dim cd As Winform.TreeNode = nd.Nodes.Add(km,km & " " & dr("参数描述"))
        Functions.Execute("AddChildrenBM",cd,dt)
    End If
Next

看2楼，控制好筛选就可以啊

 

For Each dr As DataRow In dt.Select("参数描述 = '单位隶属'")

 

For Each dr As DataRow In dt.Select("参数描述 = '" & CurrentTable.Cols(CurrentTable.ColSel).Name & "'")