TreeView 问题，高手帮忙！

孤帆远影

高手帮忙，到底哪里有问题？

fruiticer

我的问题也差不多。解决不了呀。

7777777

没人知道吗？

kangking

我看主要还是引用的问题，另外代码也有些问题。你先正确的引用，再根据错误提示修改代码。

孤帆远影

没人知道吗？

孤帆远影

请高手帮忙看看，这样的写法有什么问题吗？
Private Sub Form_Load()
    Dim TreeNode As Node
    Set db = DBEngine(0)(0)
    strSQL = "select * from list order by 分类编号;"
    Set rs = db.OpenRecordset(strSQL, DB_OPEN_DYNASET)
    Set TreeNode = XTree.Nodes.Add(, , rs.分类编号, rs.描述)
    TreeNode.Sorted = True
    rs.Next
    MaxLevel = DCount("分类编号", "list")
     For i = 1 To MaxLevel - 1
        Set TreeNode = XTree.Nodes.Add(rs.归类编号, tvwChild, rs.分类编号, rs.描述)
        TreeNode.Sorted = True
        rs.Next
    Next
    rs.Close
End Sub


list
分类编号 归类编号 描述
No0001  NO0000  配件
No0002  No0001  软驱
No0003  No0001  硬盘
No0004  No0003  120M硬盘
No0005  No0003  160M硬盘
No0006  No0004  3'120M硬盘
No0007  No0001  显示器
No0008  No0007  液晶显示器

孤帆远影

为什么总是“类型不匹配”
    Set TreeNode = XTree.Nodes.Add(, , rs.分类编号, rs.描述)