VB编程：在Texe1中输入一个值，如果TreeView中有这个值就让它加亮显示出来

Question

TreeView绑定到Access数据库，在Texe1中输入一个值，利用SQL查询语句进行查询，如果TreeView控件中有这个值就让它加亮显示出来。请问哪位热心的朋友能做到吗？能做到的话请给我详细代码，我一定高分（50分以上）酬谢，决不食言！
在这里我没有给悬赏分的原因是因为一般有点难度的问题很少有人回答，结果把分给白白浪费掉了。

Answer 1

我来说两句

首先,TreeView控件是不能绑定到数据库的,因为它没有DataSource属性,楼主没搞明白TreeView节点上的数据是在运行中加载上去的,把它和表格控件视为一样了.

其次,楼主也没说清他的数据表结构,任何人也无法给出向TreeView加入数据的代码,因为加入到TreeView上的数据是分结构的,有些数据彼此之间有从属关系,无法象数据绑定控件那样任意加载.

下面一段代码楼主试试,如果要和你的数据"绑定",请写出你的表结构.

Private Sub Command1_Click()

Dim my_text As String

    my_text = Text1.Text

    

    For i = 1 To TreeView1.Nodes.Count

        If my_text = TreeView1.Nodes(i).Text Then

           TreeView1.Nodes(i).Selected = True

           TreeView1.SetFocus

        End If

    Next

End Sub

Private Sub Form_Load()

  '添加 Node 对象。

   Dim nodX As Node    '声明 Node 变量。

   Set nodX = TreeView1.Nodes.Add(, , "R", "根节点")

   '下一个节点是节点 1 ("根节点") 的子节点。

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "A", "A节点")

下一个节点是节点 2 ("A节点") 的子节点。

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A1", "A次节点1")

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A2", "A次节点2")

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A3", "A次节点3")

   Set nodX = TreeView1.Nodes.Add("A", tvwChild, "A4", "A次节点4")

   '下一个节点是节点 1 ("根节点") 的子节点。

   Set nodX = TreeView1.Nodes.Add("R", tvwChild, "B", "B节点")

 '下一个节点是节点 8 ("B节点") 的子节点

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B1", "B次节点1")

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B2", "B次节点2")

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B3", "B次节点3")

   Set nodX = TreeView1.Nodes.Add("B", tvwChild, "B4", "B次节点4")

   

   For i = 1 To TreeView1.Nodes.Count

       TreeView1.Nodes(i).EnsureVisible

   Next

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

 Text2.Text = Node.Text

End Sub

Answer 2

你到底在哪里查？一会儿说“利用SQL查询语句进行查询”，马上又说“如果TreeView控件中有这个值就让它加亮显示出来”