treeview 节点日期填充 (请fan0217版主，再看看)？

6v87qe

需要实现的要求是 ，将 treeview 中的节点使用日期填充，年月日排序并在窗口中显示当日相应的MRP 值和 金额总额  ，请高手帮忙改改

[此贴子已经被作者于2006-9-9 14:42:56编辑过]

fan0217

Sub AddMyTree()
On Error GoTo Err_AddMyTree
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim nodCurrent As Node
Dim objTree As Object

Set objTree = Me.TreeView0
Set conn = CurrentProject.Connection

strSQL = "SELECT DISTINCT Time FROM Table1 ORDER BY Time;"

rst.Open strSQL, conn, adOpenStatic, adLockReadOnly

Do While Not rst.EOF
    Set nodCurrent = objTree.Nodes.Add(, , "a" & rst("Time"), rst("Time"), 1, 2)
        nodCurrent.Tag = rst("Time")
    rst.MoveNext
Loop

    rst.Close
    Set rst = Nothing
    Set conn = Nothing

Exit_AddMyTree:
    Exit Sub
   
Err_AddMyTree:
    Set rst = Nothing
    Set conn = Nothing
    MsgBox Err.Description, vbCritical, "AddMyTree"
    Resume Exit_AddMyTree
   
End Sub

Private Sub Form_Load()
    AddMyTree
End Sub

[此贴子已经被作者于2006-9-8 18:32:12编辑过]

fan0217

Private Sub TreeView0_NodeClick(ByVal Node As Object)
Dim strSQL As String
    strSQL = "SELECT * FROM Table1 "
    strSQL = strSQL & "WHERE Time = #" & CDate(Node.Tag) & "# "
   
    Me.Table1_子窗体.Form.RecordSource = strSQL
    Me.Table1_子窗体.Form.Requery
End Sub

6v87qe

谢谢，版主，有一点还是我没有说清楚。
想要得效果是按年月日分三级展开的，现在只有一级
还请再麻烦一下

[此贴子已经被作者于2006-9-8 20:10:06编辑过]

6v87qe

自己顶一顶

fan0217

请不要指定谁来回答，这样你会失去很多帮你的机会。

其实重要的是方法，关于树的使用方法掌握后不是什么难事，自己按着例子尝试尝试！

6v87qe

知道，版主一片好心。可我实在没有多余的时间去详细学习 treeview了，这个例子和 "三小时"里的完全不一样，这个函数我也没见过。
还请，版主，再点拨一下，好事做到底

zzyzzg

顶一顶顶一顶