Fórum Como enviar um valor de um (DBGrid) para um Label? #242383

10/07/2004

0

:D Ae galera blz!
É o seguinte eu tenho uma tabela de vendas e gostaria q toda vez q eu vendesse alguns produtos fosse somado o seu valor num (Label).
Ex: Eu vendi um produto X no valor de R$58,90 Reais, q foi adicionado a DBGrid.
Ai o cliente resolveu comprar o produto Y no valor de R$150,50 q também foi adicionado a DBGrid. Então eu tenho dois produtos na DBGrid.
Gostaria q este valores fosse somado e exibido num Label.
Mais sem precisar clicar em nem um botão ou seja assim q fosse inserido os produtos na DBGrid já ia somando.
Estou usando Delphi 7 e Paradox.

Se alguém puder me ajudar ficarei grato.

Valeu!
:D :D :D

Jackell Alves


Vitoreduardo

Vitoreduardo

Responder

Posts

11/07/2004

Rm

No evento afterpost da table coloque um while para soma o valor

var
soma:real;
begin
table1.first;
soma:=table1valor.value;
table.next;
while not table1.eof do begin
soma:=soma+table1valor.value;
table1.next;
end;
label1.caption:=floattostr(soma);
end;


Espero ter ajudado.
SDS/RM


Responder

Gostei + 0

11/07/2004

Vitoreduardo

Desculpe RM pois sou iniciante em delphi e esta dando o seguinte erro.
Undeclared identifier (QR_DetVendasValor). :oops: :oops:


Responder

Gostei + 0

11/07/2004

Rm

Um dia todo mundo foi iniciante... o importante é prosseguir...

o ´Table1valor.value;´ que listei se refere unicamente ao campo da tabela que tu desejas somar.Se o campo é (QR_DetVendas) não deves listar como (QR_DetVendasValor) e sim como´ QR_DetVendas.value ´ apenas.
Ou é isto ou esquecestes de colocar ´.value´ após a descrção do campo (que deve ser numérico).

Creio ser isto ...

Até mais


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar