主题：数据提取问题

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("房号字典", "建设期数|楼幢号|单元号|房号", "", "排序")'使用排序

trv.Nodes.Insert("显示所有行", 0)

Tables("房号字典").Filter = "房号 Is null"

trv.StopRedraw '停止绘制目录树

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点

    If e.node.nodes.count = 0 Then ''最底层的节点

           If e.DataRow.IsNull("安置状态") Then

            nd.Text = nd.DataRow("排序") & "〔" & nd.text & "〕"           

        Else         

            nd.Text = nd.DataRow("排序") & "〔" & nd.text & "〕" & nd.DataRow("安置状态")

        End If

    End If

Next

trv.ResumeRedraw '恢复绘制目录树

提示，“未知编译错误”.老师，帮我看看怎么修改？