BlueSteel
17-02-2005, 14:55:01
Hola...
quisiera agregar unas lineas a un campo Tmemo... hasta el momento estoy haciendo el siguiente proceso.... pero no me funciona. Se supone que en la consulta existe al menos 10 registros, pero solo me agrega el primer registro :(
IBQ_Cargos.First;
While IBQ_Cargos.Eof=False Do
Begin
sCargos.Lines.Append(Concat(IBQ_Cargos['Are_Codigo'],' ',IBQ_Cargos['Are_Detalle'],' $',FormatFloat('#,',IBQ_Cargos['Cos_Monto'])));
IBQ_Cargos.Next;
End;
quisiera agregar unas lineas a un campo Tmemo... hasta el momento estoy haciendo el siguiente proceso.... pero no me funciona. Se supone que en la consulta existe al menos 10 registros, pero solo me agrega el primer registro :(
IBQ_Cargos.First;
While IBQ_Cargos.Eof=False Do
Begin
sCargos.Lines.Append(Concat(IBQ_Cargos['Are_Codigo'],' ',IBQ_Cargos['Are_Detalle'],' $',FormatFloat('#,',IBQ_Cargos['Cos_Monto'])));
IBQ_Cargos.Next;
End;