VB Treeview控制元件孫節點點擊讀取寫入Textbox 事件代碼該如何寫-有解無憂

'設定第二級"父"
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

謝謝

uj5u.com熱心網友回復：

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Label1.Caption = "當前節點：編號:" & Mid(Node.Key, 2) & " 名稱:" & Node.Text
end sub

uj5u.com熱心網友回復：

已經自己解決
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

uj5u.com熱心網友回復：

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 給他加個英文字母解決

uj5u.com熱心網友回復：

前幾年做過一個類似你說的功能，先讀取，然后再一級一級的生成，用到treeview控制元件。

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86796.html

標籤：數據庫(包含打印安裝報表)

上一篇：小白求助！VB更新程式問題！

下一篇：VB匯出的EXCEL如何給整列加上千分號呢？

VB Treeview控制元件 孫節點 點擊讀取寫入Textbox 事件代碼該如何寫

VB Treeview控制元件孫節點點擊讀取寫入Textbox 事件代碼該如何寫