SOMAR UMA COLUNA
como faço para somar uma coluna do dbgrid e o resultado aparecer num text? obrigado...
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...
txt.text = grid.collum(x).text+grid.collum(xx).text
naum sei c funciona, + naum custa tentar isso ou algo parecido...
onde coloquo este codigo? em q evento? seije mais claro...
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...
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...
em q lugar coloquo o codigo? em q evento de qual objeto?
te enviei um exmplo no seu email...
DEU CERTO.
Tópico encerrado , respostas não são mais permitidas