Delphi - Ayuda con append

   
Vista:

Ayuda con append

Publicado por Manuel M. (46 intervenciones) el 03/10/2008 15:31:20
Saludo,
Necesito que alguien vea esto, ya que cuando lo ejecuto en el onexit de un edit todos los registro caen sobre los otros y para verse todos hay que salir y entrar al programa.

uso db de sql server 2000.

if le=3 then
begin
dm.VENTEM.Append;
dm.VENTEMpunto.Value := strToInt(copy(entrada.Text,1,1));
dm.VENTEMnumero.Value := copy(entrada.Text,2,2);
dm.VENTEMvalor.value := dm.VENTEMpunto.value * 0.3;
dm.VENTEM.Post;
end;

gracias, foro.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con append

Publicado por Pilixphp (1 intervención) el 17/01/2009 17:43:14
{Prueva de esta forma...}

if le=3 then
begin
dm.VENTEM.last; {Esta es la modificacion}
dm.VENTEM.Append;
dm.VENTEMpunto.Value := strToInt(copy(entrada.Text,1,1));
dm.VENTEMnumero.Value := copy(entrada.Text,2,2);
dm.VENTEMvalor.value := dm.VENTEMpunto.value * 0.3;
dm.VENTEM.Post;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar