关于TREEVIEW的简单问题

Question

如何在窗体启动的时候调用Tv1_NodeClick事件？
谢谢！

Answer 1

先用EnsureVisible 方法展开再调用
Tree_NodeClick Tree.Nodes(node)

Answer 2

不行啊  在FORM-LOAD中调用Tv1_NodeClick Tv1.Nodes("LB")它会指出下面第一句IF不正确
Private Sub Tv1_NodeClick(ByVal Node As MSComctlLib.Node)If InStr(Tv1.SelectedItem.Key, "LB") Then
   OpenRS1 "SELECT XH AS 学号,XM AS 姓名,XB AS 性别,SFZH AS 身份证号,TYPE AS 学生类别,LQTYPE AS 录取类别 FROM 学生表 WHERE YXDM='" & Left(Tv1.SelectedItem.Text, 3) & "'"
   Set FP.DataSource = RS1
   FP.MaxRows = RS1.RecordCount
ElseIf InStr(Tv1.SelectedItem.Key, "NJ") Then
   OpenRS1 "SELECT XH AS 学号,XM AS 姓名,XB AS 性别,SFZH AS 身份证号,TYPE AS 学生类别,LQTYPE AS 录取类别 FROM 学生表 WHERE YXDM='" & LogDM & "' AND NJ='" & Left(Tv1.SelectedItem.Text, 4) & "'"
   Set FP.DataSource = RS1
   FP.MaxRows = RS1.RecordCount
Else
   OpenRS1 "SELECT XH AS 学号,XM AS 姓名,XB AS 性别,SFZH AS 身份证号,TYPE AS 学生类别,LQTYPE AS 录取类别 FROM 学生表 WHERE YXDM='" & LogDM & "' AND NJ='" & Left(Tv1.SelectedItem.Parent.Text, 4) & "' AND ZYDM='" & Left(Tv1.SelectedItem.Text, 6) & "'"
   Set FP.DataSource = RS1
   FP.MaxRows = RS1.RecordCount
End If

Answer 3

当然不正确了，，
那还用问吗？
应该改成下面这样子!If InStr(Node.Key, "LB") Then

Answer 4

dim i as integer
for i=0 to Tv1.Nodes.Count 
   if tv1.nodes(i).key="LB" then  "LB"<---这里改为你要选择的节点的key
       Tv1.Nodes(i).selected=ture       
   end if
next 
后面再加你的代码,出错的原因是 Tv1.selecteditem is nothing

Answer 5

修入一下第二句
for i=1 to Tv1.nodes.count