[已解决]treeview中一个不可理喻的错误，求能人解决一下

蝶·舞 · 发表于 2012-10-19 21:56

今天在使用treeview进行科目选择时，发现如图的一个问题（隔了好几行的内容，居然跳到该行的节点下），不知是什么原因造成的。
快照1.jpg

Treeview会计科目.zip (22.27 KB, 下载次数: 14)

hwc2ycy · 发表于 2012-10-20 06:54

本帖最后由 hwc2ycy 于 2012-10-20 07:14 编辑

QQ截图20121020071332.jpg

关键字重复了。
你VBE里设置忽略了错误。

hwc2ycy · 发表于 2012-10-20 06:55

选第一个时就会报错的。

hwc2ycy · 发表于 2012-10-20 07:10

本帖最后由 hwc2ycy 于 2012-10-20 07:46 编辑

Private Sub UserForm_Initialize()
Dim objHeaderRange As Range
Dim aintLevelNodesCount(10) As Integer
Dim intCurNodeLevel As Integer
Dim lngCurRowOffset As Long
Dim strNodeKey As String, strParentNodeKey As String
Dim l As Long
On Error Resume Next
TreeView1.HideSelection = False
TreeView1.LineStyle = tvwRootLines '显示出表示可扩展节点的“+”号
Me.Caption = "会计科目"
Erase aintLevelNodesCount
intCurNodeLevel = 1
lngCurRowOffset = 1
With TreeView1
.Nodes.Clear
Set objHeaderRange = Sheet1.Range("rHeaderLevel")
If objHeaderRange.Offset(lngCurRowOffset, 0).Value <> 1 Then GoTo label_Exit
aintLevelNodesCount(intCurNodeLevel) = 1
strNodeKey = "Level" & Format(aintLevelNodesCount(intCurNodeLevel), "00")
' 加入第一个节点
.Nodes.Add Key:=strNodeKey, Text:=objHeaderRange.Offset(lngCurRowOffset, -1).Value
lngCurRowOffset = lngCurRowOffset + 1
While objHeaderRange.Offset(lngCurRowOffset, 0).Value <> ""
intCurNodeLevel = objHeaderRange.Offset(lngCurRowOffset, 0).Value
If objHeaderRange.Offset(lngCurRowOffset, 0).Value < objHeaderRange.Offset(lngCurRowOffset - 1, 0).Value Then
aintLevelNodesCount(intCurNodeLevel + 1) = 0
End If
aintLevelNodesCount(intCurNodeLevel) = aintLevelNodesCount(intCurNodeLevel) + 1
strNodeKey = "Level"
For l = 1 To intCurNodeLevel
strNodeKey = strNodeKey & Format(aintLevelNodesCount(l), "00")
Next l
If objHeaderRange.Offset(lngCurRowOffset, 0).Value = 1 Then
' add a root node
.Nodes.Add Key:=strNodeKey, _
Text:=objHeaderRange.Offset(lngCurRowOffset, -1).Value
Else
' add a child node
strParentNodeKey = "Level"
For l = 1 To intCurNodeLevel - 1
strParentNodeKey = strParentNodeKey & Format(aintLevelNodesCount(l), "00")
Next l
.Nodes.Add Relative:=strParentNodeKey, Relationship:=4, Key:=strNodeKey, _
Text:=objHeaderRange.Offset(lngCurRowOffset, -1).Value
End If
lngCurRowOffset = lngCurRowOffset + 1
Wend
Debug.Print .Nodes.Count
For l = 1 To .Nodes.Count
.Nodes(l).EnsureVisible
Next l
strNodeKey = "Level01"
.Nodes(strNodeKey).Selected = True
End With
label_Exit:
Set objHeaderRange = Nothing
For i = 1 To TreeView1.Nodes.Count '以下三行代码是为了默认收缩状态
TreeView1.Nodes(i).Expanded = False
Next
End Sub

复制代码

hwc2ycy · 发表于 2012-10-20 07:17

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

本帖最后由 hwc2ycy 于 2012-10-20 07:47 编辑

Treeview会计科目.rar (26.04 KB, 下载次数: 30)

hwc2ycy · 发表于 2012-10-20 07:23

strNodeKey = "Level01"
.Nodes(strNodeKey).Selected = True

复制代码

这两句可读性不高，而且没有通用性。
不如改成

.Nodes(1).Selected = True

复制代码

比较好。

蝶·舞 · 发表于 2012-10-20 08:18

多谢班管的鼎力相助

hwc2ycy · 发表于 2012-10-20 08:38

蝶·舞发表于 2012-10-20 08:18
多谢班管的鼎力相助

沾你光，也学下TREEVIEW，

		自动登录	找回密码
密码			注册