Dim t As Table = Tables("柱上真空开关部件范围划分")
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 = " 整体评价结果"
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("部件最后得分Mp")) * val(r("Kp"))
If val(r("部件最后得分Mp")) < min Then
min = val(r("部件最后得分Mp"))
End If
If flag Then
If r("部件评价结果") <> "正常状态" Then
flag = False
End If
End If
End If
Next
这个语句中有排序还是汇总模式默认排序，要是有怎么修改下这语句，谢谢
加好友 
发短信
Post By：2015/3/5 9:07:00 [只看该作者]
