- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树的图标问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75392)
-- 发布时间：2015/10/7 18:28:00
-- [求助]目录树的图标问题
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("会计科目")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("全部")
For Each dr As DataRow In dt.Select("","科目代码")
If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then
nd = tr.Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"),"00263.ico")
\'nd1.Sele cte dIco nFile ="add.ico"
Functions.Execute("AddChildren",nd,dt)
End If
Next
tr.ResumeRedraw()
对于红色的部分我应该怎么改，为什么只对1级有效 后面几级无法实现选择后更变图标。还有TreeView 的datarow 怎么使用 才能使点击某个节点后 获取到数据库主键
[此贴子已经被作者于2015/10/7 18:32:02编辑过]
-- 发布时间：2015/10/7 19:18:00
--
AddChildren函数也要写。
nd.IconFile = "C:\\Icons\\Clone.ico"
可以用tag属性去记录主键，如 nd.Tag = dr("_Identify")
[此贴子已经被作者于2015/10/7 19:18:05编辑过]
-- 发布时间：2015/10/7 19:54:00
-- 回复：（大红袍）AddChildren函数也要写。 n...
\'nd.SelectedIc 这个不起作用 ，二三级就没有反应了
-- 发布时间：2015/10/7 20:09:00
--
AddChildren函数也要写。
nd.SelectedIconFile= "C:\\Icons\\Clone.ico"
-- 发布时间：2015/10/7 20:16:00
-- 回复：（大红袍）AddChildren函数也要写。 n...
我已经加了 如图
红线能正常 打X的都不正常
-- 发布时间：2015/10/7 20:35:00
--
呃......
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目16.zip |
-- 发布时间：2015/10/7 23:13:00
-- 回复：（大红袍）AddChildren函数也要写。 n...
tag 加载目录树的时候 AfterSelectNode 请问如何掉用TAG 直接取tag 但是发现下级的目录的主键都是同一个数，都不对应
-- 发布时间：2015/10/7 23:18:00
--
汗，你有在AddChildren写吗？参考6楼的写法
-- 发布时间：2015/10/7 23:23:00
--
找到问题了 可以了 谢谢！
[此贴子已经被作者于2015/10/7 23:41:50编辑过]