以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这种格式如何生成可以多选的树形目录。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136151)

--  作者:pygjf
--  发布时间:2019/6/8 20:38:00
--  这种格式如何生成可以多选的树形目录。
这种格式如何生成可以多选的树形目录。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:专业类别.xls


--  作者:pygjf
--  发布时间:2019/6/8 23:01:00
--  
顶一下
--  作者:有点甜
--  发布时间:2019/6/9 10:18:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2416.htm

 


--  作者:pygjf
--  发布时间:2019/6/9 11:05:00
--  
按照您给帮助路径,运行后直接退出了Foxtalb,没有任何提示。

--  作者:有点甜
--  发布时间:2019/6/9 11:23:00
--  
以下是引用pygjf在2019/6/9 11:05:00的发言:
按照您给帮助路径,运行后直接退出了Foxtalb,没有任何提示。

 

具体foxtable项目发上来测试。


--  作者:pygjf
--  发布时间:2019/6/9 11:25:00
--  
这是源码,还是不行。
--  作者:pygjf
--  发布时间:2019/6/9 11:26:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:递归测试.zip


--  作者:有点甜
--  发布时间:2019/6/9 11:35:00
--  

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs=dt.Select("pr_parent =\'" & nd.name & "\'")
For Each dr As DataRow In drs
    Dim cd As WinForm.TreeNode = nd.nodes.add(dr("pr_id"),dr("pr_name"))
    Functions.Execute("AddChildren",cd,dt)
Next