VSFlexGrid 合计项与排序问题的解决方法

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