那位大侠能帮我改一下这个treeview

6v87qe

那位大侠能帮我改一下这个treeview,总是提示“mistype”




的错误提示，都改了好几天了，晕



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 DateRec FROM FinalQuery GROUP BY DateRec;"









rst.Open strSQL, conn, adOpenStatic, adLockReadOnly














Dim nodeYear As Node




Dim nodeYearMonth As Node









Do While Not rst.EOF




    Set nodeYear = Nothing




    On Error Resume Next




    Set nodeYear = objTree.Nodes _




    ("a" & Format(rst("DateRec").Value, "yyyy"))




    On Error GoTo Err_AddMyTree




    If nodeYear Is Nothing Then




      Set nodeYear = objTree.Nodes _




      .Add(, , "a" & Format(rst("DateRec").Value, "yyyy"), _




      Format(rst("DateRec").Value, "yyyy"), 1, 2)




      




    End If









    Set nodeYearMonth = Nothing




    On Error Resume Next




    Set nodeYearMonth = objTree.Nodes _




    ("a" & Format(rst("DateRec").Value, "yyyymm"))




    On Error GoTo Err_AddMyTree




    If nodeYearMonth Is Nothing Then




      Set nodeYearMonth = objTree.Nodes _




      .Add(nodeYear, tvwChild, _




      "a" & Format(rst("DateRec").Value, "yyyymm"), _




      Format(rst("DateRec").Value, "mmmm"), 1, 2)




    End If









    Set nodCurrent = objTree.Nodes _




    .Add(nodeYearMonth, tvwChild, _




    "a" & rst("DateRec").Value, _




    rst("DateRec").Value, 1, 2)




    nodCurrent.Tag = rst.Fields("DateRec").Value




     




    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 Detail_Click()









End Sub









Private Sub TreeView0_NodeClick(ByVal Node As Object)




Dim strSQL As String




    strSQL = "SELECT * FROM FinalQuery "




    strSQL = strSQL & "WHERE Daterec = #" & CDate(Node.Tag) & "# "




     




    Me.FinalQuery_subform.Form.RecordSource = strSQL




    Me.FinalQuery_subform.Form.Requery




End Sub



















Private Sub Form_Load()




    AddMyTree




End Sub

fan0217

传上例子来吧？

你顺便看看这个例子：

[此贴子已经被作者于2006-10-10 9:27:24编辑过]

6v87qe

例子传上来了，版主费心

[此贴子已经被作者于2006-10-10 19:19:47编辑过]