Cita:
Empezado por luchifer
Pasa que cuando utilizo esos eventos, no me guarda o se pierde la cantidad que estoy colocando por ejm.
cant precio valor
5 20 100 cuando presiono enter en el evento onkeypress
5 0 0 cuando utilizo en onkeydown o onkeyup se me pierde lo digitado
|
Hola luchifer.
Lo que te sugiere
roman tiene el mismo efecto que la evaluación que realizas en
OnKeyPress. Habría que ver como está tu código en el evento
OnKeyDown como te indica
Casimiro.
Pero me pregunto...¿ Y no te serviría usar el evento
AfterScroll del
TDataSet ?, algo parecido a:
Código Delphi
[-]
procedure TuForm.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.AfterScroll := DataSetAfterScroll;
end;
procedure TuForm.DataSetAfterScroll(DataSet: TDataSet);
begin
with DBGrid1.DataSource.DataSet do
begin
Edit;
FieldByName('CAMPO3').Value:= FieldByName('CAMPO1').Value *
FieldByName('CAMPO2').Value;
end;
end;
procedure TuForm.FormDestroy(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.AfterScroll := nil;
end;
Saludos.