UC知道TreeView树形分类的实现 望熟悉vb的指点下 满意高分追加!!
来源：百度知道 编辑：UC知道 时间：2024/05/13 05:51:50
分类
劳保|劳保鞋类|绝缘鞋
劳保|手套类|线手套
劳保|劳保鞋类|钢头鞋
消防|水带类|三星水带
劳保|手套|其他
其他
当我将这字段数据读取到dataset(即 内存里的临时表DsData中)
如何处理这字符串 将其导入TreeView控件中显示呢?
相同分类只在同一分支 有新的分类 自动新增
效果如图相似:
辛苦 ruguo141126 了 但是不对头啊 不能达到我要的效果...还有些是空的 我这意思是2级以上才是物品来的
我这样做不知道行不行，你参考一下吧！
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Private Sub Form_Load()
Dim strSz() As String
Dim strDyc As String
Dim strDec As String
Dim j As Integer
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
rst.Open "select * from tree", conn, adOpenKeyset, adLockReadOnly
If rst.RecordCount > 0 Then
j = 1
While Not rst.EOF
If Mid(rst.Fields(1), 3, 1) = "|" Then
strSz = Split(rst.Fields(1), "|") '给这个字段以“|”分这数组
If j = 1 Then
For i = 0 To UBound(strSz)
If i = 0 Then
Set Node = TreeView1.Nodes.Add(,