Tabla.Edit;
Tabla.FieldValues['Fecha'] := DbFecha.Text;
Tabla.FieldValues['Tipo'] := DbTipo.Text;
Tabla.FieldValues['Num_Sanitario'] := DbNum_Sanitario.Text;
Tabla.FieldValues['Num_Especie'] := ListaEspecies.KeyValue;
Tabla.FieldValues['Num_Producto'] := ListaProductos.KeyValue;
Tabla.FieldValues['Cajas'] := DbCajas.Text;
Tabla.FieldValues['Kilos_Netos'] := DbKilos_Netos.Text;
Tabla.Post;
{RefreshClick(NIL);
Timer.Enabled := True;}
Query.Close;
Query.Open;
Donde Query es de la grilla
Gracias
|