用treeview制作二级菜单出现问题

tzt0625

根据网站前辈的经验，我做了一个二级树状目录
请问我这样做有什么问题啊？

谢谢！！

tzt0625

二级菜单一直都链接不到一级菜单上 不知道怎么回事 谢谢！！

Grant

中文字段有点邪门
    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

Set nodindex = TreeView.Nodes.Add(A, tvwChild, Rec.Fields("二级菜单"), Rec.Fields("二级菜单"), "z1", "z2")
这个中的Nodes.Add(A, tvwChild是不是应该改为Rec.Fields("一级菜单")

tzt0625

非常感谢 两位 我试试~!!

tzt0625

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替代后，就没啥问题了。。。