Office中国论坛/Access中国论坛

标题: 如何按条件自动指向列表框中相应纪录被选中？已解决 [打印本页]

作者: fannky 时间: 2007-5-25 22:54
标题: 如何按条件自动指向列表框中相应纪录被选中？已解决
[求助][讨论]如何按条件自动指向列表框中相应纪录被选中？

这个问题[attach]24627[/attach]
如图，

左边用了一个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 时间: 2007-5-25 23:16

[attach]24630[/attach]

补传源文件，更清楚

作者: fannky 时间: 2007-5-26 01:39
竟没有人能帮助我？！！！

作者: fannky 时间: 2007-5-26 17:57
我还是在等待……

作者: fannky 时间: 2007-5-27 08:39
还是没人能回答？

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)