如何按条件自动指向列表框中相应纪录被选中？已解决

fannky

[求助][讨论]如何按条件自动指向列表框中相应纪录被选中？

这个问题
如图，

左边用了一个Tree，右边的是一个ListBox，他的数据源是动态赋值得，想通过点击左边的Tree子健使右边的ListBox中“子件名称”与Tree中选定相对应的那一条记录成为被选中状态，就如图中的效果

翻遍了整个论坛，没有找到答案，是不是用Listbox.Selected来实现？我不会，请高手提供事例

在线等！



======================我是分割线==========================

答案：

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

[此贴子已经被作者于2007-6-2 17:17:32编辑过]

fannky

补传源文件，更清楚

fannky

竟没有人能帮助我？！！！

fannky

我还是在等待……

fannky

还是没人能回答？

如果没有答案，请版主封了这个帖子