版主救命！我再线等了10天还是没答案，我快饿死了~

fannky

原贴在这里：

http://www.office-cn.net/forum.php?mod=viewthread&tid=54708&extra=&page=1#54708

不知为何我改不了发表的内容，只好重新发贴了

好心的人啊，可怜可怜我把……

djt

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) & ")" = strMaterial
        'MsgBox "(" & List70.Column(1, lngIndex) & ")"
        lngIndex = lngIndex + 1
        If lngIndex > List70.ListCount Then
            MsgBox "No found"
            Exit Sub
        End If
    Loop
   
    List70.Selected(lngIndex) = True

    '
End Sub

fannky

十分感谢，我稍微修改了一点点,这样更完美了

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
   
    List70.Selected(lngIndex) = True



    '
End Sub

Grant

我也发一个

For I = 1 To Me.List70.ColumnCount - 2
   If Me.List70.Column(1, I) = Trim(Replace(Replace(objNode.Text, "(", ""), ")", "")) Then
    Me.List70 = Me.List70.Column(0, I)
    Exit Sub
    End If
Next

zxzx2733

好象4楼的才对

poly

晕哦，我不懂代码

fannky

4楼的是稍微的简化了一下，原理同2楼的

感谢热心人，我学到了方法

goto2008

fannky...你能不能把你解决好的这个问题的库。。传上来，让我学一下。

谢谢。。