SOMAR O VALOR TOTAL DE UMA COLUNA MSFLEXGRID
como eu faço para somar todas as linhas de uma coluna do MSFLEXGRID e mostrar em um label.caption???
ex.
coluna(4) msflexgrid
R$ 50,00
R$ 10,00
R$ 40,00
Label.Caption = R$ 100,00
a conversão eu sei fazer, mais pegar os valores de cada linha da coluna 4 do flexgrid e somar um total eu não sei como fazer alguem pode me ajudar???
ex.
coluna(4) msflexgrid
R$ 50,00
R$ 10,00
R$ 40,00
Label.Caption = R$ 100,00
a conversão eu sei fazer, mais pegar os valores de cada linha da coluna 4 do flexgrid e somar um total eu não sei como fazer alguem pode me ajudar???
Na rotina para preencher o msflexgrid com dos dados; crie uma variável do tipo currency e vá armanzenando nessa os valores e quando terminar o loop de carregamento terá o valor total bastando setar o caption do label com o total da variável. Exemplo: (lblTotal.caption=format(Variavel,[Ô]#,###,##0.00[Ô])
Dim iCt As Integer
Dim cTotal As Currency
MSHFlexGrid.Col = 4
For iCt = 1 To MSHFlexGrid.Rows - 1
MSHFlexGrid.RowSel = iCt
cTotal = cTotal + MSHFlexGrid.Text
Next iCt
msgbox cTotal
Dim cTotal As Currency
MSHFlexGrid.Col = 4
For iCt = 1 To MSHFlexGrid.Rows - 1
MSHFlexGrid.RowSel = iCt
cTotal = cTotal + MSHFlexGrid.Text
Next iCt
msgbox cTotal
Dim i As Integer
Dim Total As Double
Total = 0
For i = 1 To MSHFlexGrid.Rows - 1
Total = Total + Cdbl(MSHFlexGrid.TextMatrix(i,4))
Next iCt
Label.Caption = [Ô]R$ [Ô] & Format(Total,[Ô]##0.00[Ô])
Dim Total As Double
Total = 0
For i = 1 To MSHFlexGrid.Rows - 1
Total = Total + Cdbl(MSHFlexGrid.TextMatrix(i,4))
Next iCt
Label.Caption = [Ô]R$ [Ô] & Format(Total,[Ô]##0.00[Ô])
Tópico encerrado , respostas não são mais permitidas