Office中国论坛/Access中国论坛

标题: 用treeview制作二级菜单出现问题 [打印本页]

作者: tzt0625 时间: 2009-2-8 22:47
标题: 用treeview制作二级菜单出现问题
根据网站前辈的经验，我做了一个二级树状目录
请问我这样做有什么问题啊？

谢谢！！
[attach]34936[/attach]

作者: tzt0625 时间: 2009-2-8 22:48
二级菜单一直都链接不到一级菜单上不知道怎么回事谢谢！！

作者: Grant 时间: 2009-2-9 01:00
中文字段有点邪门
Dim Rec As New ADODB.Recordset
Dim stRecQL As String
Dim Item As Integer
Dim i As Integer
Dim nodindex As Node
Rec.Open ("select distinct 一级菜单 from 一级菜单"), CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To Rec.RecordCount - 1
      Set nodindex = TreeView.Nodes.Add(, , Rec.Fields("一级菜单"), Rec.Fields("一级菜单"), "z1", "z2")
      nodindex.Sorted = True
      Rec.MoveNext
Next
Rec.Close

Rec.Open "一级菜单", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
Do While Not Rec.EOF
A = Rec.Fields("一级菜单")
      Set nodindex = TreeView.Nodes.Add(A, tvwChild, Rec.Fields("二级菜单"), Rec.Fields("二级菜单"), "z1", "z2")
      nodindex.Sorted = True
      Rec.MoveNext
   Loop
Rec.Close

作者: wjsfeng 时间: 2009-2-9 08:42
Set nodindex = TreeView.Nodes.Add(A, tvwChild, Rec.Fields("二级菜单"), Rec.Fields("二级菜单"), "z1", "z2")
这个中的Nodes.Add(A, tvwChild是不是应该改为Rec.Fields("一级菜单")

作者: tzt0625 时间: 2009-2-9 09:39
非常感谢两位我试试~!!

作者: tzt0625 时间: 2009-2-9 09:42

Set nodindex = TreeView.Nodes.Add(A, tvwChild, Rec.Fields("二级菜单"), Rec.Fields("二级菜单"), "z1", "z2")
这个中的Nodes.Add(A, tvwChild是不是应该改为Rec.Fields("一级菜单")
wjsfeng 发表于 2009-2-9 08:42

版主已经将rec.Fields("一级菜单")赋值给了A

可能版主说的中文字段比较邪门的原因就是这个意思吧，用了rec.fields("一级菜单")貌似就出问题了，用A替代后，就没啥问题了。。。

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