- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 产品大类与目录树，如何实现这样的要求 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56150)
-- 发布时间：2014/8/30 15:14:00
-- 产品大类与目录树，如何实现这样的要求
产品大类与目录树，如何实现这样的要求，请教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:产品大类设定.foxdb |
-- 发布时间：2014/8/30 15:26:00
--
增加根节点 如何获取类似表中类别级码，并且赋值它
-- 发布时间：2014/8/30 15:33:00
--
http://www.foxtable.com/help/topics/1984.htm
-- 发布时间：2014/8/30 15:37:00
--
关键在于如何获取类似表中类别级码，并且赋值它
-- 发布时间：2014/8/30 15:42:00
--
呵呵，并不复杂，代码很短，希望你好好体会一下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
-- 发布时间：2014/8/30 15:44:00
--
呵呵 我是开发版 打不开
-- 发布时间：2014/8/30 15:45:00
--
安装商业版
-- 发布时间：2014/8/30 15:53:00
--
新装的商业版 打开文件出现
此主题相关图片如下：qq图片20140830154843.jpg
-- 发布时间：2014/8/30 15:54:00
--
安装最新版本的狐表商业版
-- 发布时间：2014/8/30 15:55:00
--
嘿嘿，我的是最新版本，还没有发布。
我贴出代码吧：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
DataTables("表A").DataRows.Clear
For Each nd As WinForm.TreeNode In trv.allNodes
Dim path As String = ""
Dim pd As WinForm.TreeNode = nd
Do
path = pd.Index+1 & "." & path
pd = pd.ParentNode
Loop While pd IsNot Nothing
Dim dr As DataRow = DataTables("表A").Addnew()
dr("第一列") = path.trim(".")
dr("第二列") = nd.Text
Next
[此贴子已经被作者于2014-8-30 15:54:53编辑过]