Private Sub VS1_BeforeSort(ByVal Col As Long, Order As Integer) '排序前删除合计项
With VS1
If .TextMatrix(.Rows - 1, 1) = "合 计" Then '判断最后列是否是合计行
.Redraw = False
.RemoveItem (.Rows - 1)
End If
End With
End Sub
Private Sub VS1_AfterSort(ByVal Col As Long, Order As Integer) '排序后添加合计项
With VS1
If .TextMatrix(.Rows - 1, 1) <> "合 计" Then '判断如果最后列不是合计行那么添加合计行
.Rows = .Rows + 1
Dim r&, c&, tot!
For c = 6 To 8
tot = 0
For r = 1 To .Rows - 2
tot = tot + .ValueMatrix(r, c)
Next
.TextMatrix(r, c) = tot
Next
.TextMatrix(.Rows - 1, 1) = "合 计"
.Cell(flexcpAlignment, .Rows - 1, 1, .Rows - 1, 1) = flexAlignCenterCenter '合计两字居中对齐
End If
.Redraw = True
End With
End Sub