- 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=19778)
-- 发布时间：2012/5/21 14:54:00
-- 这样的目录树如何做?
我根据一列的内容生成目录树,请看下面的示例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:会计科目.table |
四位数的是一级科目,六位是二级,八位是三级,要求根据此做出目录树,另外,首字符是1的为资产,2为负债...我要分开做成目录树的,呵呵
此主题相关图片如下：未命名.jpg
效果如上图
[此贴子已经被作者于2012-5-21 15:04:20编辑过]
-- 发布时间：2012/5/21 14:58:00
--
例子？
-- 发布时间：2012/5/21 15:02:00
--
刚上传了,在一楼,呵呵
-- 发布时间：2012/5/21 15:58:00
--
看这里的9楼：
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=17850&skin=0
-- 发布时间：2012/5/21 16:36:00
--
先谢谢了,有空研究一下,呵呵
-- 发布时间：2012/5/21 17:34:00
--
我打不开呢：
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/5/21 17:40:00
--
我把数据提出来了：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:科目.rar |
-- 发布时间：2012/5/21 20:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目390.table |
-- 发布时间：2012/5/21 23:15:00
--
谢谢贺老师,我将窗口中的代码改了一下,就分别在五个目录树中加入了,完全达到我一楼的要求了,呵呵
Dim i As Integer
Dim s As String
For i = 1 To 5
Select Case i
Case 1
s="资产"
Case 2
s="负债"
Case 3
s="权益"
Case 4
s="成本"
Case 5
s="损益"
End Select
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView" & i)
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add(""& s &"")
For Each dr As DataRow In dt.datarows
If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 AndAlso Left(dr("科目代码"),1)=i Then
nd = tr.Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
tr.ResumeRedraw()
Next
-- 发布时间：2012/5/21 23:16:00
--
不知何故打不开,怪事了