分级加载树想按二列进行加载

此主题相关图片如下:微信截图_20240919162337.png


此主题相关图片如下:微信截图_20240920113443.png

想得头痛
就看到抄了帮助的代码,连表名列名都还不知道改,没看到有想了什么?
内部函数都是没有的

此主题相关图片如下:微信截图_20240920141828.png
我这边有
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim rt As String = args(2)
For Each dr As DataRow In dt.Select("第一列='" & rt & "' and 第二列 like '" & nd.Name & ".%' and len(第二列)=" & nd.Name.Length + 3, "第二列")
Dim km As String = dr("第二列")
Dim cd As Winform.TreeNode = nd.Nodes.Add(km, km & " " & dr("第三列"))
Functions.Execute("AddChildren", cd, dt, rt)
Next