主题：[求助] 代码嵌套出错

Dim pgs As WinForm.TabControl = e.Form.Controls("页签")

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim i As  Integer
For i=1 To 2 '要增加2行    
        
    Select Case  pgs.SelectedPage.Text      '定义n为当前页签的标题
        Case  "电气"
            Dim r As Row = Tables("电气工程量").InsertNew()
           
        Case "水卫"
                        '
            Dim r As Row = Tables("水卫工程量").InsertNew()
           
        Case "通风空调"
                   Dim r As Row = Tables("通风空调工程量").InsertNew()
        Case "防雷接地"
            
            Dim r As Row = Tables("防雷接地系统").InsertNew()
    End Select
   
    '下面为赋值程序
   
    Select  Case tv.SelectedNode.level  '判断级别值
        Case 0
            r("项目工程名称") = tv.SelectedNode.text '当前节点的值
        Case 1
            r("项目工程名称") = tv.SelectedNode.ParentNode.Text  '当前节点的值  父值
            r("单项工程名称") = tv.SelectedNode.text '当前节点的值
        Case 2
            r("项目工程名称") = tv.SelectedNode.ParentNode.ParentNode.Text  '当前节点的值  父值 的父值
            r("单项工程名称") = tv.SelectedNode.ParentNode.Text '当前节点的值  父值
            r("单位工程名称") = tv.SelectedNode.Text '当前节点的值  父值
        Case 3
            r("项目工程名称") = tv.SelectedNode.ParentNode.ParentNode.ParentNode.Text  '当前节点的值  父值 的父值
            r("单项工程名称") = tv.SelectedNode.ParentNode.ParentNode.Text '当前节点的值  父值
            r("单位工程名称") = tv.SelectedNode.ParentNode.Text '当前节点的值  父值
            r("分项工程名称") = tv.SelectedNode.text '当前节点的值
           
        Case 4
            r("项目工程名称") = tv.SelectedNode.ParentNode.ParentNode.ParentNode.ParentNode.Text  '当前节点的值  父值 的父值
            r("单项工程名称") = tv.SelectedNode.ParentNode.ParentNode.ParentNode.Text  '当前节点的值  父值 的父值
            r("单位工程名称") = tv.SelectedNode.ParentNode.ParentNode.Text '当前节点的值  父值
            r("分项工程名称") = tv.SelectedNode.ParentNode.Text '当前节点的值  父值
            r("楼层_名称") = tv.SelectedNode.text '当前节点的值
           
        Case 5
            r("项目工程名称") = tv.SelectedNode.ParentNode.ParentNode.ParentNode.ParentNode.ParentNode.Text  '当前节点的值  父值 的父值
            r("单项工程名称") = tv.SelectedNode.ParentNode.ParentNode.ParentNode.ParentNode.Text '当前节点的值  父值
            r("单位工程名称") = tv.SelectedNode.ParentNode.ParentNode.ParentNode.Text '当前节点的值  父值
            r("分项工程名称") = tv.SelectedNode.ParentNode.ParentNode.text '当前节点的值
            r("楼层_名称") = tv.SelectedNode.ParentNode.text '当前节点的值
            r("构件_名称") = tv.SelectedNode.text '当前节点的值
           
    End Select
Next

，以上代码错误、怎么优化

 这一句要最上面定义

Dim r As Row