主题：狐爸帮忙一下，其中代码有错误，我不知道怎么调试

例如：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("订单","产品|日期")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        nd.text = Format(cdate(nd.text),"yyyy-MM-dd")
        nd.Name = nd.Text
    End If
Next
trv.ResumeRedraw