怎样按条件选中Treeview控件中的节点?

Question

怎样按条件选中Treeview控件中的节点?
我以下这样写的代码实现不了,应该怎样写呢?
Private Sub InitTree(sAutoID As String) '查询树    Dim rLoadCom As New ADODB.Recordset
    
    Call rLoadCom.Open("SELECT AutoID, ExamPoint FROM SubjectManageEP where  SubjectManageID='" & sAutoID & "' ", DataE.Conne, adOpenKeyset, adLockReadOnly)
    Dim sNode As Node
    With rLoadCom
        Do While Not .EOF And .RecordCount <> 0
            
            For Each sNode In TreeView1.Nodes
                If .Fields("ExamPoint").Value = sNode.Text Then
                    sNode.Selected = True
                    sNode.Checked = True
                    sNode.Expanded = True
                Else
                    sNode.Selected = False
                    sNode.Checked = False
                    sNode.Expanded = False
                End If
            Next
            .MoveNext
        Loop
       
    End With
    
    Set rLoadCom = Nothing
End Sub

Answer 1

其实以上代码是可以选中节点的,但是我把初始化treeview的代码放在了Form_Load中,就不起作用,
我单独放在一个button中单击一下就可以了,
难道Form_Load初始化不了treeview?

Answer 2

Private Sub Form_Load()
    InitTree ("a")
End Sub这样就行了吧。

Answer 3

不行呀，参数加个"a"是什么意思？
我传进来的是记录的ID值啊。