求助Treeview 添加节点出错

fnsmydyang

我想从库存信息表取得想要的字段数据,创建一个利用树来查询库存数据,共分三层,材质为第一层,厚度为第二层,规格为第三层,在添加第二层是出现了错误,还望老师们指教,先行谢谢...

ACMAIN_CHM

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

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


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

fnsmydyang

谢谢,是在Sql语句中[材质]&[厚度] as id 重新命名的,不知道是否有问题?

fnsmydyang

最近看贴的人太少了,哎...

fnsmydyang

这样改了还是会出错,郁闷.
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