能否设计出折叠式可计算可编辑table - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

        Dim str As String = dr("专业编号")
        Dim ary() As String = str.split("-")
        SystemReady = False
        For i As Integer = ary.length-2 To 0 Step -1
            Dim pid As String = ""
            For j As Integer = 0 To i
                pid &= ary(j) & "-"
            Next
            pid = pid.Trim("-")

            For Each dt As DataRow In e.DataTable.Select("专业编号 = '" & pid & "' And 月份 = #" & dr("月份") & "#")
                Dim filt As String = "专业编号 like '" & pid & "-%' And 类别 = '" & iif(i=0,"单位", iif(i=1,"专业", "")) & "' And 月份 = #" & dr("月份") & "#"

                dt("工程造价_施工单位") = e.DataTable.Compute("Sum(工程造价_施工单位)",filt)
                dt("工程造价_监理单位") = e.DataTable.Compute("Sum(工程造价_监理单位)",filt)
                dt("工程造价_造价单位") = e.DataTable.Compute("Sum(工程造价_造价单位)",filt)
            Next
        Next
        SystemReady = True

ZJZK2015	小大 31楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/10/7 16:48:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 33楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/10/7 18:07:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 35楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/10/21 21:10:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 37楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/10/22 19:43:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 39楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2017/11/23 21:47:00 [只看该作者] 用户已被锁定

主题：能否设计出折叠式可计算可编辑table