专家坐堂-[求助] 代码嵌套出错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 代码嵌套出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59589)

--  作者：建筑人生
--  发布时间：2014/11/7 0:37:00
--  [求助] 代码嵌套出错

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

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

--  作者：Bin
--  发布时间：2014/11/7 8:08:00
--
出现什么错误?

--  作者：有点甜
--  发布时间：2014/11/7 9:12:00
--

这一句要最上面定义

Dim r As Row