Private Sub TreeView_NodeClick(ByVal objNode As Object)
Dim strSQL As String
strNodekey = objNode.Key
'?????????????????????????????
'
' 我该如何去做?
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Dim strMaterial As String
Dim lngIndex As Long
strMaterial = objNode.Text
Do Until List70.Column(1, lngIndex)&" (" & List70.Column(1, lngIndex) & ")" = strMaterial
'MsgBox "(" & List70.Column(1, lngIndex) & ")"
lngIndex = lngIndex + 1
If lngIndex > List70.ListCount Then
MsgBox "No found"
Exit Sub
End If
Loop