treeview控件变空白

juanchan · 发表于 2012-11-4 08:34

大家好，我在学习使用ACCESS，那个TREEVIEW控件一直都能正常使用，但不知道为什么，最近打开就变成了空白的，没有任何节点。请问这是什么问题呢？谢谢

juanchan · 发表于 2012-11-5 15:36

运行时弹出以下图片:
对象不支持该属性和方法.JPG

点调试弹出VB代码:
代码.JPG

点结束进入窗体, 但TREEVIEW控件里一片空白:
TREEVIEW空白.JPG

juanchan · 发表于 2012-11-5 15:37

Sub tree()
Dim Rec As New ADODB.Recordset
Dim stRecQL As String
Dim Item As Integer
Dim i As Integer
Dim nodeindex As Node

Set nodeindex = TreeView.Nodes.Add(, , "爷", "楦号")
nodeindex.Sorted = True

  Rec.Open "BOM楦号表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
      Set nodeindex = TreeView.Nodes.Add("爷", tvwChild, "父" & Rec.Fields("楦号ID"), Rec.Fields("楦号"))
      nodeindex.Sorted = True
      Rec.MoveNext
Next
Rec.Close

   Rec.Open "BOM型体表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
      Set nodeindex = TreeView.Nodes.Add("父" & Rec.Fields("所属楦号"), tvwChild, "子" & Rec.Fields("型体ID"), Rec.Fields("型体"))
      nodeindex.Sorted = True
      Rec.MoveNext
Next
Rec.Close

Rec.Open "BOM款号", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
      Set nodeindex = TreeView.Nodes.Add("子" & Rec.Fields("所属型体"), tvwChild, "孙" & Rec.Fields("款号ID"), Rec.Fields("款号"))
      nodeindex.Sorted = True
      Rec.MoveNext
Next
Rec.Close
Me.TreeView.Nodes(1).Expanded = True
End Sub

Renco · 发表于 2012-11-5 19:32

控件注册信息丢失

juanchan · 发表于 2012-11-5 20:53

我还是新手, 不太熟悉, 请问怎样找回? 谢谢.

咱家是猫 · 发表于 2012-11-5 22:13

可能是与近期安装或卸载了什么软件有关,有些软件会替换(或卸装时随手删除)一些插件.但它不知道有些插件是共用的.
你可以到VBA的引用里看看是不是存在有"丢失"的引用.

juanchan · 发表于 2012-11-6 08:17

之前丢失过Microsoft windows common controls 6.0 (SP6)，打开窗体时，子窗体一片空白，后来重新引用，这个问题好了，但又出现TREEVIEW控件一片空白。

juanchan · 发表于 2012-11-6 20:32

我进入设计状态,把原来那个TREEVIEW控件删除, 重新添加TREEVIEW控件就恢复正常了.

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