FLEXGRID
Tenta assim
Dim Soma As Double
bom a forma acima deveria funcionar, e como eu disse acredito que não seja o flexgrid que vc está usando e sim um outro.
então entenda a lógica
repare que se flexgrid acima tem 7 linhas, poré, se vc pegar o valor de Rows ele vai ser igual a 8, ou seja o cabeçalho é contado.
então quando faço .Rows = .Rows + 1 ele adiciona mais uma linha então Rows Ficará igual a 9, porém a contagem de linhas começa do cabeçalho e do 0, e acaba no 8, resumindo Rows = 9 porém a ultima linha será a 8, então para corrigir isto eu uso
Linha = .Rows - 1
Linha = 8
entandeu a lógica do flexgrid, pois ainda acho que vc não está usando um MSFlexgrid
se não for MSFlexgrid tente colocar assim
apenas
Dim Soma As Double
With USFlexgrid1
For L = 0 To .Rows - 1
Soma = Soma + CDbl(.TextMatrix(L, 2)) [ô] aqui eu somei a coluna 2
Next L
.Rows = .Rows + 1
Linha = .Rows - 1
.CellText(Linha, 1) = [Ô]Total Geral[Ô]
.CellText(Linha, 2) = Format(Soma, [Ô]Currency[Ô])
End Withbom a forma acima deveria funcionar, e como eu disse acredito que não seja o flexgrid que vc está usando e sim um outro.
então entenda a lógica
repare que se flexgrid acima tem 7 linhas, poré, se vc pegar o valor de Rows ele vai ser igual a 8, ou seja o cabeçalho é contado.
então quando faço .Rows = .Rows + 1 ele adiciona mais uma linha então Rows Ficará igual a 9, porém a contagem de linhas começa do cabeçalho e do 0, e acaba no 8, resumindo Rows = 9 porém a ultima linha será a 8, então para corrigir isto eu uso
Linha = .Rows - 1
Linha = 8
entandeu a lógica do flexgrid, pois ainda acho que vc não está usando um MSFlexgrid
se não for MSFlexgrid tente colocar assim
apenas
Linha = .Rows[txt-color=#007100] [ô] pois se a contagem deste teu grid for a partir da primeira linha então vai dar certo[/txt-color]
Tópico encerrado , respostas não são mais permitidas