设置的规则就是目录树的节点一样 我现在是借助目录树 设置 这列的值
请问老师 如果不借用窗口目录树 我要怎么生成 这样的节点值?
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("AA")
tr.Nodes.Clear
For Each dr As DataRow In dt.datarows
If dr.IsNull("父键") Then
nd = tr.Nodes.Add(dr("子键"),dr("子键"))
Functions.Execute("loop",nd,dt)
End If
Next
Dim i As Integer
For Each nda As WinForm.TreeNode In tr.AllNodes
Dim lj As String =Nothing
Dim pd As WinForm.TreeNode = nda.ParentNode
Do While pd IsNot Nothing
lj= pd.Index + 1 & "." & lj
pd = pd.ParentNode
Loop
lj = lj & nda.Index + 1
Tables("aa").Rows(i)("kkk") =lj
i =i +1
Next
[此贴子已经被作者于2020/5/7 17:00:16编辑过]