SOMAR COLUNA DE DBGRID
Ola Galera do VbMania blz. Estou fazendo um programa de protocolo e tenho que somar a coluna valor do grid pra saber o valor total. Estou usando o controle data1. Se alguem puder me ajudar eu agradeço.
[ô]*********** Somar Campo Grid **************
Sub MostraSomaCampo()
[ô]FG1 é o nome do grid
Dim Total As Double
For Linha = 1 To FG1.Rows - 1
On Error Resume Next
Total = Total + CDbl(FG1.TextMatrix(Linha, 6)) [ô] 2 é a coluna a ser somada
Next Linha
no caso de um textbox
txtToal.Text = Format(Total, [Ô]#,###,##0.00[Ô])
no caso de label
lblTotal.caption = Format(Total, [Ô]#,###,##0.00[Ô])
End Sub
é só isso
ok.
[ô] Quando vc quizer a somo vc coloca apenas,
MostraSomaCampo
Sub MostraSomaCampo()
[ô]FG1 é o nome do grid
Dim Total As Double
For Linha = 1 To FG1.Rows - 1
On Error Resume Next
Total = Total + CDbl(FG1.TextMatrix(Linha, 6)) [ô] 2 é a coluna a ser somada
Next Linha
no caso de um textbox
txtToal.Text = Format(Total, [Ô]#,###,##0.00[Ô])
no caso de label
lblTotal.caption = Format(Total, [Ô]#,###,##0.00[Ô])
End Sub
é só isso
ok.
[ô] Quando vc quizer a somo vc coloca apenas,
MostraSomaCampo
Caro amigo Obrigado pela rsposta mas vc usou um flexgrid e eu estou usando um DBdrig se puder me ajudar eu agradeço
Tópico encerrado , respostas não são mais permitidas