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

改编号。把每一行的编号改成类似【项目结构】表那样，才能折叠和求和。

 

 

 另外加一列【编号】列，根据编号列折叠和统计。

        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

msgbox(filt)看看不就知道了？条件是什么，你就查询到什么。两段代码合成的条件本身就不同。