Office中国论坛/Access中国论坛

标题: treeview 节点日期填充 (请fan0217版主，再看看)？ [打印本页]

作者: 6v87qe 时间: 2006-9-8 20:20
标题: treeview 节点日期填充 (请fan0217版主，再看看)？
需要实现的要求是，将 treeview 中的节点使用日期填充，年月日排序并在窗口中显示当日相应的MRP 值和金额总额，请高手帮忙改改

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

作者: fan0217 时间: 2006-9-9 02:26
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 时间: 2006-9-9 02:32
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-9 03:53
谢谢，版主，有一点还是我没有说清楚。
想要得效果是按年月日分三级展开的，现在只有一级
还请再麻烦一下

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

作者: 6v87qe 时间: 2006-9-9 16:27
自己顶一顶

作者: fan0217 时间: 2006-9-10 01:50
请不要指定谁来回答，这样你会失去很多帮你的机会。

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

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

作者: zzyzzg 时间: 2010-1-28 21:46
顶一顶顶一顶

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