VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 1 条记录 1/1页
目录树数据加载的问题
发表在VB图书答疑
2018-03-10
《Visual Basic开发实战1200例（第Ⅰ卷）》第12章 ActiveX控件应用 544页-544页
是否精华
是
否
版块置顶:
是
否
Dim key, text, bh As String
'Dim nod As Node
Adodc1.RecordSource = "select * from 商品基础信息表 order by 商品编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
If Len(Trim(Adodc1.Recordset.Fields("商品编号"))) = 2 Then
key = Trim(Adodc1.Recordset.Fields("本级名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("商品编号")) & ")" & Trim(Adodc1.Recordset.Fields("本级名称"))
Set Node1 = TreeView1.Nodes.Add(, , key, text, 1)
End If
If Len(Trim(Adodc1.Recordset.Fields("商品编号"))) = 4 Then
key = Trim(Adodc1.Recordset.Fields("本级名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("商品编号")) & ")" & Trim(Adodc1.Recordset.Fields("本级名称"))
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 2)
End If
If Len(Trim(Adodc1.Recordset.Fields("商品编号"))) = 7 Then
key = Trim(Adodc1.Recordset.Fields("本级名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("商品编号")) & ")" & Trim(Adodc1.Recordset.Fields("本级名称"))
Set Node3 = TreeView1.Nodes.Add(Node2.Index, tvwChild, key, text, 3)
End If
Adodc1.Recordset.MoveNext
Loop
End IfLen(Trim(Adodc1.Recordset.Fields("商品编号"))) = 7的数据有许多，他们对应不同的上一级。系统在加载时的时候，以什么来区别进行加载数据。比如，啤酒下面有雪花啤酒，哈尔滨啤酒……，葡萄酒下面民有数据，为什么在加载的时候没有把葡萄酒的数据加载到啤酒下面，它是根据什么来区别数据进行加载的。
分享到：
