Office中国论坛/Access中国论坛

标题: 版主救命！我再线等了10天还是没答案，我快饿死了~ [打印本页]

作者: fannky 时间: 2007-6-2 20:03
标题: 版主救命！我再线等了10天还是没答案，我快饿死了~
原贴在这里：

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

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

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

作者: djt 时间: 2007-6-3 00:47

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 时间: 2007-6-3 01:15
十分感谢，我稍微修改了一点点,这样更完美了

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 时间: 2007-6-3 02:05
我也发一个

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 时间: 2007-6-3 03:22
好象4楼的才对

作者: poly 时间: 2007-6-3 11:55
晕哦，我不懂代码

作者: fannky 时间: 2007-6-4 18:42
4楼的是稍微的简化了一下，原理同2楼的

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

作者: goto2008 时间: 2007-6-6 01:46
fannky...你能不能把你解决好的这个问题的库。。传上来，让我学一下。

谢谢。。

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