以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 分级加载树想按二列进行加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193488) |
||||
-- 作者:zhuxinhui -- 发布时间:2024/9/19 16:26:00 -- 分级加载树想按二列进行加载 分级加载树想按二列进行加载 此主题相关图片如下:微信截图_20240919162337.png |
||||
-- 作者:有点蓝 -- 发布时间:2024/9/19 16:55:00 -- 只能手工递归处理,类似:http://www.foxtable.com/webhelp/topics/2502.htm |
||||
-- 作者:zhuxinhui -- 发布时间:2024/9/20 11:39:00 -- 此主题相关图片如下:微信截图_20240920113443.png 想得头痛
|
||||
-- 作者:有点蓝 -- 发布时间:2024/9/20 13:34:00 -- 就看到抄了帮助的代码,连表名列名都还不知道改,没看到有想了什么? |
||||
-- 作者:zhuxinhui -- 发布时间:2024/9/20 13:44:00 -- 首先多谢先 发到论坛都是个例子
|
||||
-- 作者:zhuxinhui -- 发布时间:2024/9/20 14:21:00 -- 内部函数都是没有的 此主题相关图片如下:微信截图_20240920141828.png 一直出错
|
||||
-- 作者:有点蓝 -- 发布时间:2024/9/20 14:32:00 -- 我这边有 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 |
||||
-- 作者:zhuxinhui -- 发布时间:2024/9/20 14:48:00 -- 还是不行,内部函数会自动删除的 |
||||
-- 作者:zhuxinhui -- 发布时间:2024/9/20 14:48:00 -- 我是想根据第一列和第二列生成目录树 |
||||
-- 作者:有点蓝 -- 发布时间:2024/9/20 14:51:00 -- 内部函数不可能会自动删除。联系客服核对一下激活码 |