Amigos Bom dia!!!!!!

 

 

Como faço para calcular a coluna de uma dbgrid e mostrar o valor em uma textbox, o meu sistema está em ADO

 

 

Obrigado

bom, considerando q o grid está ligado a um recordset e este a uma tabela ou consulta vc pode fazer via sql: SELECT SUM(CAMPO) FROM TABELA WHERE CODIGO = 1

Ou fazer um for para somar célula à célula:

 

Dgrid.Col = 2 ' coluna a ser somada

For i =1 to DGrid.ApproxCount -1

   DGrid.Row = i

   Soma = ccur(Dgrid.text) + soma

Next

Textbox1.text = Format(Soma,"#,###.#0")

Amigo, se não me engano é este o código... é q não tenho vb então tô atirando no escuro. Se eu errar me desculpa ae...

 

at+

amigos, estou tentando fazer uma soma de duas colunas de uma datagrid, so q nao ta funcionando certo, vejam:

Datagrid:

Columns(10)         Columns(11)

500,00                100,00

300,00                200,00

 

soma

800,00                200,00

 

dessa forma, a primeira soma da coluna 10, esta somando correto, mas a soma da segunda coluna (11), so pega o ultimo valor da ultima linha, ou seja, o curso nao ta correndo na coluna 11, igual faz na coluna 10...

 

alguem podia me ajudar a ver o erro?

 

vejam o codigo q to usando:

----------------------------------------------------------------

'faz a soma dos creditos
    Dim i As Integer
    Dim SomaCred As Double
    SomaCred = "0"
    DataGrid1.Col = 1 ' coluna a ser somada
    For i = 1 To DataGrid1.ApproxCount - 1
       DataGrid1.Row = i
       SomaCred = CCur(DataGrid1.Columns(10).Text) + SomaCred
       Label3.Caption = Format(SomaCred, "0.00")
    Next

'faz a soma dos debitos
    Dim x As Integer
    Dim SomaDeb As Double
    SomaDeb = "0"
    DataGrid1.Col = 2 ' coluna a ser somada
    For x = 1 To DataGrid1.ApproxCount - 1
       DataGrid1.Row = x
       SomaDeb = CCur(DataGrid1.Columns(11).Text) + SomaDeb
       Label6.Caption = Format(SomaDeb, "0.00")
    Next
   
'faz os calculos dos creditos menos os debitos
    Label8.Caption = Format((SomaCred - SomaDeb), "0.00")
   

 

no aguardo agradeço...

Qdo chegar em casa eu testo colega...

 

at+

Desculpa a demora colega mas a lógica esta correta então observei melhor o código acima q vc postou e tem um equívoco. Vc está somando o texto da coluna 11 sendo q vc posicionou antes na coluna 2.

 

DataGrid1.Col = 2 ' coluna a ser somada
    For x = 1 To DataGrid1.ApproxCount - 1
       DataGrid1.Row = x
       SomaDeb = CCur(DataGrid1.Columns(11).Text) + SomaDeb

 

Tenta assim colega: