标题: 请教这段代码错在哪里? [打印本页] 作者: lesson 时间: 2004-3-17 23:33 标题: 请教这段代码错在哪里? Private Sub treeview()
'初始树形图,一个activeX的好例子
Dim objTreeView As Object, objListImage As Object, nodNew, nod1, nod2 As node
Dim rs, rec, recd As Object
Dim prg, sbr As Object
Set objTreeView = Me!treeview1.Object
objTreeView.Style = 7 '设置树型样式
Set nodNew = objTreeView.Nodes.Add(, , "工艺类别", " 已有工艺类别", 1, 1) '添加根节点,关键字:歌手,显示标题:歌手列表
Set rs = CurrentDb.OpenRecordset("SELECT id,工艺类别 FROM 工艺类别 order by 工艺类别;")
rs.MoveFirst
While Not rs.EOF
'逐加次节点,NODES.ADD (父节点,子节点,关键字,标题)
Set nod1 = objTreeView.Nodes.Add("工艺类别", tvwChild, rs!工艺类别, rs!工艺类别, 1, 1)
Set rec = CurrentDb.OpenRecordset("select ID,工艺型号 from 工艺型号 where sortid=" & rs!ID)
Do While Not rec.EOF And Not rec.BOF
objTreeView.Nodes.Add nod1, tvwChild, , rec!工艺型号
'以上正常运行,加上以下却报错。
Set nod2 = objTreeView.Nodes.Add("工艺型号", tvwChild, rec!工艺型号, rec!工艺型号, 1, 1)
Set recd = CurrentDb.OpenRecordset("select 工艺名称 from 工艺入库表 where 工艺类别=" & rec!ID)
Do While Not recd.EOF And Not recd.BOF