单元格计算问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用dakongyigang在2015/3/4 8:31:00的发言：
命令好使，就是（6,1）到（6,4）全都是这个值，能做个输出按钮单独输出结果么

不明白你说的单独输出结果是什么意思，把计算好的全部值显示出来？

捉摸半天，觉得这组值还是咱们例子中的分组汇总比较好点，就是上面问题7行数一组，判断条件当七行状态都为“正常状态”分组汇总小计输出乘积加和，若有一个不为“正常状态”小计取“最后部件得分M平”最小值，这个要怎么写，谢谢。
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20150304160324.jpg

我应该再在第一列插入一列分组条件吧

[此贴子已经被作者于2015/3/4 16:38:04编辑过]

刚才没传上

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

甜版主这个能实现分组汇总么

Dim t As Table = Tables("柱上真空开关部件范围划分")
For i As Integer = 0 To t.Rows.Count - 7
    Dim r As Row = t.Rows(i)
    Dim sum As Double = 0
    Dim min As Double = r("部件最后得分Mp")
    Dim flag = True
    For j As Integer = i*7 To i*7+6
        If j < t.Rows.Count - 1 Then
            Dim cr As Row = t.Rows(j)
            sum += val(r("整体评价得分")) * val(r("Kp"))
            If r("部件最后得分Mp") < min Then
                min = r("部件最后得分Mp")
            End If
            If flag Then
                If r("部件评价结果") <> "正常状态" Then
                    flag = False
                End If
            End If
        End If
    Next
    If flag Then
        r("整体评价1") = sum
    Else
        r("整体评价1") = min
    End If
Next

您真是忒强大了！菜鸟问题这个输入到哪里

单独做一个按钮

这个代码还是（6.1）（6.2)输出的吧，我想做成演示例子中订单那个可以参考下面的代码：

Dim doc As New PrintDoc
Dim rt As New Prt.RenderTable
Dim rx As prt.RenderText
Dim cnt As Integer
Dim tbl As Table = Tables("订单")
Dim drs As List(Of DataRow)
Dim pds As List(Of String) = tbl.DataTable.GetValues("产品",tbl.Filter)
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.LightGray)
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
For c As Integer = 0 To tbl.Cols.Count - 1 '生成列标题
    rt.Cells(0,c).Text = tbl.Cols(c).Name
    rt.Cols(c).Width = tbl.Cols(c).PrintWidth
Next
For Each pd As String In pds '分产品打印
    If tbl.Filter > "" Then
        drs = tbl.DataTable.Select("产品 = '" & pd & "' And " & tbl.Filter)
    Else
        drs = tbl.DataTable.Select("产品 = '" & pd & "'" )
    End If
    For Each dr As DataRow In drs '逐行打印此产品的订单
        cnt = rt.Rows.Count
        For c As Integer = 0 To tbl.Cols.Count - 1
            rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
        Next
    Next
    cnt = rt.Rows.Count
    rt.Cells(cnt, 0).Text = "小计 " & pd '打印产品的小计
    rt.Cells(cnt,5).Text = tbl.compute("Sum(数量)", "产品 = '" & pd & "'")
Next
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = "合计 " '打印合计
rt.Cells(cnt, 5).Text = tbl.compute("Sum(数量)")
doc.Body.Children.Add(rt)
doc.preview()

主题：单元格计算问题