Fórum Como enviar um valor de um (DBGrid) para um Label? #242383
10/07/2004
0
É 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
Curtir tópico
+ 0Posts
11/07/2004
Rm
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
Gostei + 0
11/07/2004
Vitoreduardo
Undeclared identifier (QR_DetVendasValor). :oops: :oops:
Gostei + 0
11/07/2004
Rm
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)