主题：递归函数生成目录树

 

窗口与控件事件

 

物资字典_AfterLoad

 

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("物资字典")

Dim lst As List(Of String) = dt.GetValues("物资编码")

For Each dr As DataRow In dt.Datarows

    If dr("上级编号") = 0 Then   

        nd = tv.Nodes.Add(dr("物资编码"),dr("名称"))

        Functions.Execute("物资递归函数",nd,dt)

    End If

Next

tv.ResumeRedraw()

 

 

自定义函数

 

递归函数 物资递归函数

 

Dim nd As WinForm.TreeNode = Args(0)

Dim dt As DataTable = Args(1)

Dim drs As List(Of DataRow)

drs = dt.Select("[上级编号] = " & nd.Name)

For Each dr As DataRow In drs

    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("物资编码"),dr("名称"))

    Functions.Execute("物资递归函数",cd,dt)

Next