treeview如何获取当前已选中checkbox的子节点值,并返回到listview
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