Office中国论坛/Access中国论坛

标题: 求助Treeview 添加节点出错 [打印本页]

作者: fnsmydyang 时间: 2009-4-9 21:12
标题: 求助Treeview 添加节点出错
我想从库存信息表取得想要的字段数据,创建一个利用树来查询库存数据,共分三层,材质为第一层,厚度为第二层,规格为第三层,在添加第二层是出现了错误,还望老师们指教,先行谢谢...
[attach]37215[/attach]
[attach]37216[/attach]
[attach]37217[/attach]

作者: ACMAIN_CHM 时间: 2009-4-9 21:31

你的SQL语句中哪有这个ID字段？

下次建议贴代码，这样别人看起来也方便，帮你改也方便。

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

作者: fnsmydyang 时间: 2009-4-9 22:07
谢谢,是在Sql语句中[材质]&[厚度] as id 重新命名的,不知道是否有问题?

作者: fnsmydyang 时间: 2009-4-10 06:08
最近看贴的人太少了,哎...

作者: fnsmydyang 时间: 2009-4-10 06:10
本帖最后由 fnsmydyang 于 2009-4-10 06:13 编辑

这样改了还是会出错,郁闷.
Private Sub Form_Load()
Dim Tvv As TreeView
Dim Mynode As Node
Dim rs As DAO.Recordset
Set Tvv = Me.TreeView1.Object
'创建一个根
Set Node = Tvv.Nodes.Add(, , "0_", "类别", 1, 2)
'从库存信息表中取得数据,创建第一层节点
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT 材质 FROM 库存信息 ORDER BY 材质")
If rs.RecordCount > 0 Then
Do Until rs.EOF
   Set Mynode = Tvv.Nodes.Add("0_", 4, rs.Fields("材质"), rs.Fields("材质"), 1, 2)
   rs.MoveNext
Loop
Else
Exit Sub
rs.Close
End If
'从库存信息表中取得数据,创建第二层节点
Set rs = CurrentDb.OpenRecordset("SELECT DISTINCT 材质,厚度, [材质] & [厚度] AS ID FROM 库存信息 ORDER BY 材质,厚度")
If rs.RecordCount > 0 Then
Do Until rs.EOF
   Set Mynode = Tvv.Nodes.Add(rs.Fields("材质"), 4, rs.Fields("材质") & rs.Fields("厚度"), rs.Fields("厚度"), 1, 2)
   rs.MoveNext
Loop
Else
Exit Sub
rs.Close
End If
End Sub
[attach]37220[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)