在AfterSelectNode写如下代码：
Select Case e.Node.Level
Case 0
With Tables("控制系统台账_系统主信息")
Dim dr As Integer
dr = .Find( e.Node.Name , 0, "区域", False, True, True)
If dr > - 1 Then '如果找到符合条件的行
.Position = dr '则选择该行
End If
End With
Case 1
With Tables("控制系统台账_系统主信息")
Dim dr As Integer
dr = .Findrow("区域='" & e.Node.parentnode.Name & "' and 机柜间 ='" & e.Node.Name & "'")
If dr > - 1 Then '如果找到符合条件的行
.Position = dr '则选择该行
End If
End With
Case 2
With Tables("控制系统台账_系统主信息")
Dim dr As Integer
dr = .Findrow("区域='" & e.Node.parentnode.Name & "' and 机柜间 ='" & e.Node.Name & "' and 系统名称 ='" & e.Node.Name & "'")
If dr > - 1 Then '如果找到符合条件的行
.Position = dr '则选择该行
End If
End With
End Select
这个代码点击前两级时定位正常点击第三级节点时不定位，请问这个代码哪里有问题？
加好友 
发短信
Post By：2023/6/7 17:46:00 [显示全部帖子]
