Porque mejor no usas el GotoKey...
Código Delphi [-]
with Tmaru do begin
EditKey;
FieldByName('Nive_Sall').AsString := Edit1.text;
FieldByName('Salario_Sal').AsString := Edit2.Text;
if GotoKey = true then begin
Edit;
FieldValues['nive_sall']:=Edit1.Text;
FieldValues['salario_sal']:=Edit2.Text;
Post;
end;
end;
Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Última edición por egostar fecha: 07-08-2007 a las 06:11:27.
|