Problema con Dbgrid

aurbano · #1 28-09-2005

Amigos Buenas Tardes.

Agradeceria de su ayuda ya que soy un novato programando en Delphi y quiero aprender mas. Abajo les describo el problema.

Estoy trabajando con un dbgrid relacionado a una datasource1 y este a su vez esta relacionado a un table1 (auxiliar de compras). Tengo una tabla2 en la cual voy a grabar los registros de la tabla1 pero no los guarda bien ya que un registro reemplaza otro:

el codigo que estoy utilizando es el siguiente:

table2.insert;
table2.fieldbyname(`serial´):= dbgrid1.fields[0].asinteger;
//////asi con cada uno de los registros.
table2.post

AL INTRODUCIR EN EL DBGRID1 TABLA 1 (AUXILIAR D COMPRAS)SerialNro. FacturaDescripcionCantidadCosto/unitarioivaCosto/total22288003541jgo CABLES10 25.000 35.000 285.000 22288013541ROLINERA10 35.000 49.000 399.000 22288023541CABLES PARA BUJIAS10 25.000 35.000 285.000 22288003542JGO. CABLES20 25.000 70.000 570.000 22288013542ROLINERA10 35.000 49.000 399.000 22288023542CABLES PARA BUJIAS10 25.000 35.000 285.000 22288033543RELE10 7.500 10.500 85.500 AL GRABAR EN LA TABLA NRO. 2 (COMPRAS)SerialNro. FacturaDescripcionCantidadCosto/unitarioivaCosto/total22288023541CABLES PARA BUJIAS10Bs 35.000 Bs 25.000 Bs 285.000 22288003542JGO. CABLES20Bs 70.000 Bs 25.000 Bs 570.000 22288013542ROLINERA10Bs 49.000 Bs 35.000 Bs 399.000 22288023542CABLES PARA BUJIAS10Bs 35.000 Bs 25.000 Bs 285.000 22288033543RELE10Bs 10.500 Bs 7.500 Bs 85.500 22288033543RELE10Bs 10.500 Bs 7.500 Bs 85.500 22288013541ROLINERA10Bs 49.000 Bs 35.000 Bs 399.000

marcoszorrilla · #2 28-09-2005

Código Delphi [-]  table2.insert;
  table2.fieldbyname('serial').AsInteger:=Tabla2.Fieldbyname('LoqueSea').AsInteger;
 //////asi con cada uno de los registros.
  table2.post

Un Saludo.

aurbano · #3 29-09-2005

Marcos muchas gracias por tu ayuda, pero ya lo intente. Tienes un email para enniarte el codigo fuente para ver si me puedes ayudar y me indiques en donde falle..

Gracias.

vtdeleon · #4 30-09-2005

Saludos

Cita:

1 pero no los guarda bien ya que un registro reemplaza otro:
....
table2.insert;
table2.fieldbyname(`serial´):= dbgrid1.fields[0].asinteger;
//////asi con cada uno de los registros.
table2.post

Estás seguro de que es el verdadero código que tienes, ya que esto, al compilar, da error. Seguro que sí

Alfonso Jurado · #5 30-09-2005

Por qué no pruebas a hacer esto (supongo que son todos los registros de tabl2):

Código Delphi [-]While not(table2.eof) do begin
 table2.insert;
 table2.fieldvalues['serial']:= table1.fieldvalues['serial'];.
 table2.post;
 table1.next;
end;

vtdeleon · #6 30-09-2005

Saludos
Existe un pequeño error en el codigo de Alfonso en While, deberia ser:

Código Delphi [-]While not(table1.eof) do begin
 table2.insert;
 table2.fieldvalues['serial']:= table1.fieldvalues['serial'];.
 table2.post;
 table1.next;
end;

También, recomiendo(asi lo hago) usar mejor FieldByName().As...., porque este tiene definido el tipo de datos