主题：单元格计算问题

我增加列了您看下根据评价名称分组统计

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 请上传一个正常的例子，打开你的项目有问题，请用试用版做一个例子发上来，然后说明要做什么效果。

这样的分组汇总

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

23楼的例子，按照什么分组，最后什么效果

按照评价名称分组，最后样子在第8行第2列

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
t.Filter = "第一列 is not null"
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "第一列"
g.TotalOn = "第二列"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

Dim sum As Double = 0
Dim min As Double = 999
Dim flag = True

For i As Integer = 0 To t.Rows.Count(True) - 1
    Dim r As Row = t.Rows(i, True)
    If r.IsGroup Then
        If flag Then
            r("第二列") = sum
        Else
            r("第二列") = min
        End If
        sum = 0
        min = 999
        flag = True
    Else
        sum += val(r("第十列")) * val(r("第十一列"))
        If val(r("第八列")) < min Then
            min = val(r("第八列"))
        End If
        If flag Then
            If r("第九列") <> "正常状态" Then
                flag = False
            End If
        End If
       
    End If
Next

谢谢您的耐心

版主分类汇总模式下新增行按钮新增航是从上面插入的，能依次递增新行么

dim r as row = tables("XX").addnew

 

汇总模式是不能编辑数据的，你切换成正常模式，再新增和编辑