帮助我吧！菜鸟请各位大侠帮帮忙

Question

我在运用treeviwe打开数据库时遇到了问题啊
我在form中分别插入了data控件和treeviwe控件
代码如下：
Private Sub Form_Load()
Dim nodex As Node
Dim i As Integer
TreeView1.LineStyle = tvwRootLines
Set nodex = TreeView1.Nodes.Add(, , "r", "Root")
For i = 0 To 25
Set nodex = TreeView1.Nodes.Add("r", tvwChild, Chr(65 + i), Chr(65 + i))
Form1.Data1.Recordset.MoveFirst
Do While Not Form1.Data1.Recordset.EOF
If UCase(Left(Form1.Data1.Recordset!Name, 1)) = Chr(65 + i) Then
Set nodex = TreeView1.Nodes.Add(Chr(65 + i), tvwChild, , Form1.Data1.Recordset!Name)
End If
Form1.Data1.Recordset.MoveNext
Loop
Next
End Sub
但运行的出错错误：对象变量或with块变量未设置
帮助我吧！菜鸟请各位大侠帮帮忙辣 

Answer 1

你的TREEVIEW应该是在当前的FORM里的，在LOAD的时候还不存在。
把这些语句搬个地方。