樹為什么不能顯示孫級(jí)

laiguiyou

在樹里，為什么月份下面無(wú)法顯示訂單號(hào)。
    '設(shè)置最頂級(jí)的"爺"
    '* ---------------------------
        Set nodindex = TreeView.Nodes.Add(, , "爺", " 訂單查詢", "k1", "k2")
        nodindex.Sorted = True
        nodindex.Expanded = True '展開樹
   
    '* -----------------------------------------------------------------
    '* -----------------------------------------------------------------
    '設(shè)置第二級(jí)"父"
    '* ---------------------------
    Rec.Open "生產(chǎn)訂單年度", 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
    '設(shè)置第三級(jí)"子"
    '* ---------------------------
    Rec.Open "生產(chǎn)訂單月份", 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
    '
    '設(shè)置第四級(jí)"孫"
    '* ---------------------------
    Rec.Open "生產(chǎn)單號(hào)", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
        For i = 0 To Rec.recordcount - 1
         Set nodindex = TreeView.Nodes.Add("子" & Rec.Fields("月份"), tvwChild, "孫" & Rec.Fields("生產(chǎn)單號(hào)"), Rec.Fields("生產(chǎn)單號(hào)"), "K1", "K2")
         nodindex.Sorted = True
            Rec.MoveNext
        Next
        Rec.Close

這句紅色的代碼錯(cuò)在哪里
。


是用查詢做的

laiguiyou

自已頂

asklove

'設(shè)置第四級(jí)"孫"
********
**********), Rec.Fields("生產(chǎn)單號(hào)"), "K1", "K2")
錯(cuò)在這里大寫“K”，改為小寫“k”就歐了
**********), Rec.Fields("生產(chǎn)單號(hào)"), "k1", "k2")

laiguiyou

是耶。粗心造成的。謝謝樓上的

laiguiyou

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