VB Treeview控件 孙节点 点击读取写入Textbox 事件代码该如何写

Question

'设置第二级"父"
Call connectdata '连接数据库
sql = "select * from typer" '添加根节点
 bs.Open sql, rs, 1
 If bs.RecordCount <> 0 Then
   bs.MoveFirst
      Do While bs.EOF = False
         Set nodX = TreeView1.Nodes.Add(, , bs.Fields("usertype").Value, bs.Fields("usertype").Value)
         nodX.Expanded = True
            bs.MoveNext '展开节点
         Loop
End If
bs.Close
rs.Close'***添加子节点***
Call connectdata '连接数据库
sql = "select * from dblist"
bs.Open sql, rs, 1
If bs.RecordCount <> 0 Then
    bs.MoveFirst
    Do While bs.EOF = False
        Set nodX = TreeView1.Nodes.Add(bs.Fields("type").Value, tvwChild, bs.Fields("key").Value, bs.Fields("key").Value)
        bs.MoveNext
    Loop
End If
bs.Close
rs.Close'***添加孙节点***
Call connectdata '连接数据库
sql = "select * from codelist"
bs.Open sql, rs, 1
If bs.RecordCount <> 0 Then
    bs.MoveFirst
    Do While bs.EOF = False
        Set nodX = TreeView1.Nodes.Add(bs.Fields("key").Value, tvwChild, bs.Fields("title").Value, bs.Fields("title").Value)
        bs.MoveNext
    Loop
End If
bs.Close
rs.Close————————————————————————————————————————Private Sub TreeView1_NodeClick(ByVal myNode As Node)################################################
################################################
################################################        Text1.Text = Trim(bs.Fields("title"))          'Text1显示 数据库title
        RichTextBox1.Text = Trim(bs.Fields("code"))    'RichTextBox1显示 数据库code  bs.Close
  rs.Close
End Sub谢谢

Answer 1

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    Label1.Caption = "当前节点：编号:" & Mid(Node.Key, 2) & "  名称:" & Node.Text
end sub

Answer 2

已经自己解决
Private Sub TreeView1_NodeClick(ByVal myNode As Node)
    Cdid = TreeView1.SelectedItem
    Call connectdata
    sql = "select * from codelist where title ='" & Cdid & "'"                  '字符串加单引号
    bs.Open sql, rs, 3, 3
    Do While Not bs.EOF
      If bs.RecordCount <> 0 Then
        bs.MoveFirst
         Text1.Text = Trim(bs.Fields("title"))                                  'Text1显示 数据库title
         Text2.Text = Trim(bs.Fields("code"))                                   'Text2显示 数据库code
        bs.MoveNext
      End If
    Loop
    bs.Close
    rs.Close
End Sub

Answer 3

Set nodX = TreeView1.Nodes.Add(bs.Fields("key").Value, tvwChild, bs.Fields("title").Value, bs.Fields("title").Value)bs.Fields("title").Value 会出现关键字不唯一 无效关键字
key值在数据库不允许空值或数字
n &  bs.Fields("title").Value 给他加个英文字母解决

Answer 4

前几年做过一个类似你说的功能，先读取，然后再一级一级的生成，用到treeview控件。