此主题相关图片如下:科目设置.jpg
按教程:
1、在内部函数中新建一个函数,名为AddChildren,代码为:
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("AddChildren",cd,dt)
Next
2、在窗口中加入一个目录树控件和一个按钮,按钮的代码为:+
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
For Each dr As DataRow In dt.datarows
If dr.IsNull("科目级数") Then
nd = tr.Nodes.Add(dr("科目编号"),dr("科目名称"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
tr.ResumeRedraw()
此主题相关图片如下:生成目录树.jpg
点击没反应,代码错在哪?该怎么写才能生成这样的目录树,
此主题相关图片如下:目录树.jpg
高手们指点一二啦