Private Sub TreeView_图书_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView_图书.AfterSelect
'定义 this_text 为字符型变量,并等于选中节点的值。
Dim this_text As String = e.Node.Text
Dim sj_id As String
Dim lbbm As String
If this_text <> lb_mc Then
'返回 this_text 中空个前面的值。
lbbm = Mid(this_text, 1, InStr(1, this_text, " ", CompareMethod.Text))
'
Dim cmd_id As SqlClient.SqlCommand = New SqlClient.SqlCommand( _
"select * from 类别 where 类别编号='" + lbbm + "'", connect)
'
Dim reader_id As SqlClient.SqlDataReader = cmd_id.ExecuteReader
reader_id.Read()
sj_id = CStr(reader_id("id"))
lb_id = CStr(reader_id("id"))
reader_id.Close()
Else
lb_id = "0"
sj_id = "0"
End If
Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand( _
"select 类别编号,类别 from 类别 where 项目='" + lb_xm + "'and sj_id='" + sj_id + "'", connect)
Dim adapter As SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter(cmd)
Dim newdataset As New DataSet("类别")
Dim row As Integer = adapter.Fill(newdataset, "类别")
Me.DataGrid_图书.DataSource = newdataset
Me.DataGrid_图书.DataMember = "类别"
'Me.DataGrid_图书.RowHeaderWidth = 20'设置行标头的宽度
'如果子节点的数目为零时。
If e.Node.GetNodeCount(False) = 0 Then
Dim reader As SqlClient.SqlDataReader = cmd.ExecuteReader
Dim i As Integer
For i = 1 To row
reader.Read()
Me.TreeView_图书.SelectedNode.Nodes.Add(reader("类别编号") + " " + reader("类别"))
Next
reader.Close()
End If
'展开 treeview 中选中的节点。
Me.TreeView_图书.SelectedNode.Expand()
End Sub