树为什么不能显示孙级

laiguiyou

在树里，为什么月份下面无法显示订单号。
    '设置最顶级的"爷"
    '* ---------------------------
        Set nodindex = TreeView.Nodes.Add(, , "爷", " 订单查询", "k1", "k2")
        nodindex.Sorted = True
        nodindex.Expanded = True '展开树
   
    '* -----------------------------------------------------------------
    '* -----------------------------------------------------------------
    '设置第二级"父"
    '* ---------------------------
    Rec.Open "生产订单年度", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.recordcount - 1
        Set nodindex = TreeView.Nodes.Add("爷", tvwChild, "父" & Rec.Fields("年度"), Rec.Fields("年度"), "k1", "k2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close
    '设置第三级"子"
    '* ---------------------------
    Rec.Open "生产订单月份", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For i = 0 To Rec.recordcount - 1
        Set nodindex = TreeView.Nodes.Add("父" & Rec.Fields("年度"), tvwChild, "子" & Rec.Fields("月份"), Rec.Fields("月份"), "k1", "k2")
        nodindex.Sorted = True
        Rec.MoveNext
    Next
    Rec.Close
   
    Set Rec = Nothing
    '
    '设置第四级"孙"
    '* ---------------------------
    Rec.Open "生产单号", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
        For i = 0 To Rec.recordcount - 1
         Set nodindex = TreeView.Nodes.Add("子" & Rec.Fields("月份"), tvwChild, "孙" & Rec.Fields("生产单号"), Rec.Fields("生产单号"), "K1", "K2")
         nodindex.Sorted = True
            Rec.MoveNext
        Next
        Rec.Close

这句红色的代码错在哪里
。


是用查询做的

laiguiyou

自已顶

asklove

'设置第四级"孙"
********
**********), Rec.Fields("生产单号"), "K1", "K2")
错在这里大写“K”，改为小写“k”就欧了
**********), Rec.Fields("生产单号"), "k1", "k2")

laiguiyou

是耶。粗心造成的。谢谢楼上的

laiguiyou

如何取得第四级中的月份。用mid(Node.key,2) 好象不行。