主题：插入节点

修改代码

For Each nd As WinForm.TreeNode In fp.AllNodes
    If nd.DataRow Is Nothing Then
        msgbox(nd.text)
    Else
        Dim Year As Integer = nd.DataRow("年")
        Dim Month As Integer = nd.DataRow("月")
        Select Case nd.Level
            Case 1
                nd.Text = nd.text
            Case 2
                nd.Text = nd.text
        End Select
    End If
Next
fp.ResumeRedraw