- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助，这种树形咋做 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17993)
-- 发布时间：2012/3/30 11:32:00
-- 求助，这种树形咋做
此主题相关图片如下：科目代码.jpg
-- 发布时间：2012/3/30 11:42:00
--
用表的【框架模式】模式变通
-- 发布时间：2012/3/31 12:38:00
--
能否具体一点
-- 发布时间：2012/3/31 14:49:00
--
参考：
http://www.foxtable.com/help/topics/0151.htm
-- 发布时间：2012/4/6 14:06:00
--
专门做一个表，可以通过表间引用直接列出。。。
-- 发布时间：2012/4/6 23:53:00
--
他可能要的是目录树...........财政的功能分类代码加名称 用递归函数学一下吧...找一下我之前问的目录树排序问题,那有代码
-- 发布时间：2012/4/6 23:59:00
--
自定义函数
Addtree1
Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[上级代码] = \'" & nd.name & "\'","功能分类_代码")
For Each dr As DataRow In drs
Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("功能分类_代码"),dr("功能分类_代码") &":"& dr("功能分类_科目名称"))
Functions.Execute("Addtree1",cd,dt)
Next
功能分类窗口_AfterLoad
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("功能分类")
tr.StopRedraw()
tr.Nodes.Clear
nd =tr.Nodes.Add("1","显示全部")
For Each dr As DataRow In dt.Select("","功能分类_代码") \'按功能分类代码排序
If dr.IsNull("上级代码") Then
nd = tr.Nodes.Add(dr("功能分类_代码"),dr("功能分类_代码") & ":" & dr("功能分类_科目名称"))
Functions.Execute("Addtree1",nd,dt)
End If
Next
tr.ResumeRedraw()
复制二段重要代码 自己去看一下就明了
-- 发布时间：2012/4/7 0:03:00
--
