Office中国论坛/Access中国论坛

标题: TreeView 问题，高手帮忙！ [打印本页]

作者: 孤帆远影 时间: 2008-7-8 12:38
标题: TreeView 问题，高手帮忙！
高手帮忙，到底哪里有问题？

作者: 孤帆远影 时间: 2008-7-8 13:55
标题: 着急啊，请高手帮忙！
为什么总是“类型不匹配”
Set TreeNode = XTree.Nodes.Add(, , rs.分类编号, rs.描述)

作者: 孤帆远影 时间: 2008-7-8 16:52
请高手帮忙看看，这样的写法有什么问题吗？
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  液晶显示器

作者: 孤帆远影 时间: 2008-7-9 05:33
没人知道吗？

作者: kangking 时间: 2008-7-9 11:00
我看主要还是引用的问题，另外代码也有些问题。你先正确的引用，再根据错误提示修改代码。

作者: 7777777 时间: 2008-9-14 13:50
没人知道吗？

作者: fruiticer 时间: 2009-3-4 23:08
我的问题也差不多。解决不了呀。

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