SOMAR UMA COLUNA

FORMIGINHA 16/07/2005 21:45:54
#94511
como faço para somar uma coluna do dbgrid e o resultado aparecer num text? obrigado...
USUARIO.EXCLUIDOS 16/07/2005 21:54:54
#94513
pow naum sei + ja tentou algo parecido com...

txt.text = grid.collum(x).text+grid.collum(xx).text

naum sei c funciona, + naum custa tentar isso ou algo parecido...
FORMIGINHA 16/07/2005 22:00:52
#94516
onde coloquo este codigo? em q evento? seije mais claro...
MARCOSAV 16/07/2005 23:17:45
#94521
Aí FORMIGUINHA, td blz ?? Olha só, tenho um sistema que (creio eu...), faz o que vc quer...
O formulário de Contas a Pagar, Receber, etc, tem um DBGrid, um Combo onde seleciono o tipo de conta e tres TextBox (1- DataInicio 2-DataFim e 3- txtTotal que acho que é o que mais te interessa...) No meu form, funciona de acordo com o código abaixo, dá uma olhada e vê se te serve, vlw ???

_________________________________________________________________
Private Sub DataFim_LostFocus()
Dim XT As Single ' X Total já que não sei quanto vai ser
XT = 0
txtTotal = ""

Dim AreaTrabalho As Workspace
Dim query As String
Dim xxbco As Database
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "\Banco.Mdb", False, False)
query = "Select * From Tabela order by Campo"
Set DYN1 = XBCO.OpenRecordset(query)
While Not DYN1.EOF
DYN1.Delete
DYN1.MoveNext
Wend

XT = XT + DYN("Campo_Valores") & "" 'Os valores da coluna do Grid

DYN.MoveNext
Wend

xxbco.Close

txtTotal = Format(XT, "###,###.00") ' Aqui tenho o total da coluna do DBGrid, no Text...

End Sub
______________________________________________________________
OBS: Este é um trecho que retirei do meu código, se algo der errado, dá uma olhada nos nomes das variáveis, ok ??? QQer coisa, dá um toque !!!

Espero ter ajudado...

Abraço...
FORMIGINHA 18/07/2005 19:09:14
#94797
em q lugar coloquo o codigo? em q evento de qual objeto?
USUARIO.EXCLUIDOS 18/07/2005 21:58:10
#94822
Resposta escolhida
te enviei um exmplo no seu email...
FORMIGINHA 18/07/2005 21:58:37
#94824
DEU CERTO.
Tópico encerrado , respostas não são mais permitidas