楼主借地方用一下,谢谢
我在建立根节点的时候用的是这样的代码
Private Sub Form_Load()
Dim NodX As Node
Do While Data1.Recordset.EOF
Set NodX = TreeView1.Nodes.Add(, , Chr(Data1.Recordset.Fields("编号1").Value), Data1.Recordset.Fields("公司").Value)
NodX.Tag = Data1.Recordset.Fields("编号1")
Data1.Recordset.MoveNext
Loop
End Sub
系统老是报错“错误91,对象变量或with块变量未设置”
我明明把data控件设定好了,数据库也绑定正确,真是奇怪啊!