以文本方式查看主题

-  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
图片点击可在新窗口打开查看
想得头痛
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb



--  作者:有点蓝
--  发布时间:2024/9/20 13:34:00
--  
就看到抄了帮助的代码,连表名列名都还不知道改,没看到有想了什么?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目121.zip



--  作者: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
--  
内部函数不可能会自动删除。联系客服核对一下激活码