主题：产品大类与目录树，如何实现这样的要求

产品大类与目录树，如何实现这样的要求，请教

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品大类设定.foxdb

增加根节点 如何获取类似表中类别级码，并且赋值它

http://www.foxtable.com/help/topics/1984.htm

 

关键在于如何获取类似表中类别级码，并且赋值它

呵呵，并不复杂，代码很短，希望你好好体会一下：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

呵呵 我是开发版 打不开

 

安装商业版

新装的商业版 打开文件出现 

此主题相关图片如下：qq图片20140830154843.jpg

安装最新版本的狐表商业版

嘿嘿，我的是最新版本，还没有发布。

 

我贴出代码吧：

 

 

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