|
示例：
Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node) Text1.text = TreeView1.SelectedItem.key
Adodc1.RecordSource = "select * from StudentInfo where name＝" + Trim(Text1.text) + "" Adodc1.Refresh If Adodc1.Recordset.RecordCount <> 0 Then Text2.text = Adodc1.Recordset.Fields("age") Text3.text = Adodc1.Recordset.Fields("email") End If End Sub 對節(jié)點的引用采用二處方法
1、節(jié)點的key值 TreeView1.SelectedItem.key
2、節(jié)點的text TreeView1.SelectedItem.text
|
|
|
