treeview如何获取当前已选中checkbox的子节点值,并返回到listview

haocyc 2017-08-19 09:55:46
treeview结构代码:
'学院名称节点 ,跟节点
Dim colsql As String
Dim colDS As New DataSet
colsql = "select top 1 col_no,College_name from college"
colDS = GetDataFormDB(colsql)
Dim tnColRoot As TreeNode
tnColRoot = New TreeNode(colDS.Tables(0).Rows(0).Item("college_name"))
tnColRoot.Tag = colDS.Tables(0).Rows(0).Item("col_No")
tnColRoot.ImageIndex = 0
tnColRoot.SelectedImageIndex = 0

'年级节点,二级节点
Dim gradesqlstr As String
Dim graDS As New DataSet
gradesqlstr = "select grade_no,grade_name from grade order by grade_no"
graDS = GetDataFormDB(gradesqlstr)

For Each drGrade As DataRow In graDS.Tables(0).Rows
Dim tnGrade As TreeNode
tnGrade = New TreeNode(drGrade.Item("grade_name"))
tnGrade.Tag = drGrade.Item("grade_no")
tnGrade.ImageIndex = 1
tnGrade.SelectedImageIndex = 1
tnColRoot.Nodes.Add(tnGrade)

'院系节点,三级节点
Dim deptsqlstr As String
Dim deptDS As New DataSet

deptsqlstr = "select dept_no,dept_name from Department order by dept_No"
deptDS = GetDataFormDB(deptsqlstr)
For Each drDept As DataRow In deptDS.Tables(0).Rows
Dim tnDpet As TreeNode
tnDpet = New TreeNode(drDept.Item("dept_name"))
tnDpet.Tag = drDept.Item("dept_no")
tnDpet.ImageIndex = 2
tnDpet.SelectedImageIndex = 2

'班级节点
Dim clssqlstr As String
Dim clsDS As New DataSet
clssqlstr = "select class_no,class_name from class where dept_no='" & tnDpet.Tag & "' and grade_no='" & tnGrade.Tag & "'"
clsDS = GetDataFormDB(clssqlstr)

For Each drClass As DataRow In clsDS.Tables(0).Rows
Dim tnClass As TreeNode
tnClass = New TreeNode(drClass.Item("class_name"))
tnClass.Tag = drClass.Item("class_no")
tnDpet.Nodes.Add(tnClass)
Next
tnGrade.Nodes.Add(tnDpet)
Next
Next
tvCollege.Nodes.Add(tnColRoot)
tvCollege.ExpandAll()


如何通过checkbox 选中子节点属性返回子节点值到listview中,listview.tex= nodes.tag
...全文
391 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xdashewan 2017-08-21
  • 打赏
  • 举报
回复
貌似只能靠遍历,代码的话可以参考c#的http://blog.csdn.net/dyp330/article/details/7027537
haocyc 2017-08-19
  • 打赏
  • 举报
回复
在线等待,设计如图

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧