Somatória no MSFLexGrid

[Mazinha 0]

Como q eu faço uma somatória (tipo do excel)????

Num flexgrid, eu quero q na 10ª LINHA da coluna 1, apareça a soma das linhas 1 a 9 da coluna 1.

[Veber 0]

hmmm sera que tem alguma coisa pronta?

 

de qualquer maneira aí vai uma rotininha pra somar tudo

 

chame a rotina assim:

 

vRowPos e vColPos = a linha e coluna onde deve aparecer o resultado

 

vSumRowFrom e vSumRowTo = as linhas que deve somar

 

vSumColFrom e vSumColTo = as colunas (em uniao com as linhas) que devem ser somadas

 

 

[ Exemplo]

 

uma grid com duas colunas ( 0 e 1 ) com 9 linhas de dados e uma linha de soma

aparecendo o resultado na linha 10 da coluna 0

 

Somatoria myGrid, 10, 0, 0 , 1 , 1 , 9

 

 

Private Sub Somatoria(vFlexGrid As MSFlexGrid, vRowPos As Long, vColPos As Long, _    vSumColFrom As Long, vSumColTo As Long, vSumRowFrom As Long, vSumRowTo As Long)Dim x As Long, y As LongDim soma As CurrencyWith vFlexGrid        For x = vSumColFrom To vSumColTo        .Col = x        For y = vSumRowFrom To vSumRowTo            .Row = y                    soma = soma + CCur(.Text)        Next    Next        .Row = vRowPos    .Col = vColPos        .Text = soma    End WithEnd Sub

 

Flows

 

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif