Somar valores

[TI_Coutinho 0]

Boa tardeExiste alguma maneira simples de somar os valores de uma coluna do datagrid em uma textbox?Ou seja...somar todas a linhas da terceira coluna e exibir o resultado em uma textboxDesde já agradeço atenção!André Coutinho

[preda 0]

Seta uma recordset e usa a seguinte logica:

 

if not rsTabela.bof then	  rsTabela.movefirstend ifwhile not rsTabela.eof	  Var = Var + rsTabela!Coluna	  rsTabela.movenextwendtext1.text = Var

Acho que isso ajuda !

[alissong 1]

Ti_Coutinho,No datagrid não tem, mas no ListView é feito assim:1º Crie um módulo ou um função +/- assim:Function ComputeAmount() As StringDim X As LongDim total As DoubleFor X = 1 To lvprod.ListItems.Counttotal = (total + lvprod.ListItems(X).SubItems(8)) Next XComputeAmount = Format(total, "###,##0.00") End Function2º Crie no evento que você que apareça o resultado. Ex. ao carregar formulário, onde txttotal.text é nome da caixa de textotxttotal.Text = (Format((ComputeAmount), "###,##0.00"))Agora, basta você fazer as adaptações necessárias para o datagrid.Um abraço.