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编辑过]
加好友 
发短信
Post By：2015/10/7 18:28:00 [只看该作者]
