- 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=25887)
-- 发布时间：2012/11/19 14:24:00
-- 这种目录树如何实现呀？谢谢
此主题相关图片如下：未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/11/19 14:46:00
--
老大帮忙看看
-- 发布时间：2012/11/19 15:04:00
--
|
老大帮忙看看 |
-- 发布时间：2012/11/19 15:25:00
--
呃，代码这样写吧，这棵树也太特殊了点，不能用常规方法生成，还好，不用用递归。
Dim tv As WinForm.TreeView = Forms("目录树窗口").Controls("TreeView1")
tv.Nodes.Clear
Dim level_1 As WinForm.TreeNode
Dim level_2 As WinForm.TreeNode
For Each dr As DataRow In DataTables("功能分类2012年").DataRows
If dr("类").Trim <> "" Then
level_1 = tv.Nodes.Add(dr("_Identify"), dr("类") & dr("科目名称"))
Else If dr("款").Trim <> "" Then
level_2 = level_1.Nodes.Add(dr("_Identify"), dr("款") & dr("科目名称"))
Else If dr("项").Trim <> "" Then
level_2.Nodes.Add(dr("_Identify"), dr("项") & dr("科目名称"))
End If
Next
-- 发布时间：2012/11/19 15:34:00
--
跟他的要求不符 我觉得数据结构填写的有问题! 小林你的结果跟他不符!
[此贴子已经被作者于2012-11-19 15:35:29编辑过]
-- 发布时间：2012/11/19 15:59:00
--
以下是引用blackzhu在2012-11-19 15:34:00的发言：
跟他的要求不符 我觉得数据结构填写的有问题! 小林你的结果跟他不符!
跟他的要求不符 我觉得数据结构填写的有问题! 小林你的结果跟他不符!
[此贴子已经被作者于2012-11-19 15:35:29编辑过]
不清楚，最好是对数据处理一下再生成树。等楼主把要求说出来，再改。
-- 发布时间：2012/11/19 16:23:00
--
是要这样的结果？
我还是劝你改一下数据结构，把项的前缀填写完善，这样更好维护
此主题相关图片如下：未命名.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1(1).table |
[此贴子已经被作者于2012-11-19 16:23:35编辑过]
-- 发布时间：2012/11/20 13:42:00
--
谢谢
-- 发布时间：2012/11/22 0:15:00
--
如何实现双击最后一层目录树的时候，把类款项合并填入科目编码文本框，把最后一层的科目填入科目名称文本框，谢谢
此主题相关图片如下：无标题.jpg
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1(1).table |
-- 发布时间：2012/11/22 9:01:00
--
|
老大帮忙看看 |