Ver Mensaje Individual
  #1  
Antiguo 09-04-2005
Yoli Yoli is offline
Miembro
 
Registrado: dic 2004
Posts: 36
Reputación: 0
Yoli Va por buen camino
problema al insertar registro en el dbgrid

Hola a todos, El problema que tengo es que cuando inserto un registro en el grid y presiono la flecha hacia abajo, el lo guarda pero no me muestra una segunda fila para insertar otro registro. lo que hace es limpiar la primera fila para ingresar el nuevo registro. Esto lo estoy haciendo en un formulario maestro detalle con 2 tablas(Tcotizacion(maestro) y TcotizacionD(detalle)). el codigo que estoy utilizando es el siguiente:

Código Delphi [-]
procedure TFrmCotizacion.cmdNuevoClick(Sender: TObject);
   begin
           DSCotizacion.DataSet.Insert;        
           ActivarTextos;
           cmdNuevo.Enabled:= False;
           cmdGuardar.Enabled:= True;
           cmdCancelar.Enabled:= True;
           cmdModificar.Enabled:= False;
           cmdEliminar.Enabled:= False;
           cmdFacturar.Enabled:= False;
           DBCedulaRIF.Enabled:=True;
           DBCedulaRIF.SetFocus;
   end;
  
  procedure TFrmCotizacion.ItemsGridEnter(Sender: TObject);
  begin
          if (DSCotizacion.DataSet.State = dsEdit) or (DSCotizacion.DataSet.State = dsInsert) then
                  begin
                  DSCotizacion.DataSet.Post;
                  DSCotizacion.DataSet.Refresh;               
                  end;
  end;
  
  procedure TFrmTablas.TCotizacionDNewRecord(DataSet: TDataSet);
  begin
          FrmCotizacion.QKoki.Close;
          FrmCotizacion.QKoki.Active:=True;
  
           if FrmCotizacion.QKoki.RecordCount > 0 then
                 TCotizacionD.FieldByName('ID_COTIZACION').AsInteger:=FrmCotizacion.QKoki.Fields[0].AsInteger;
  
  end;
todos los datos se guardan bien, pero necesito que se agregen filas en el grid cada vez que yo ingrese un nuevo registro. Bueno espero haberme explicado. Saludos.

Última edición por marcoszorrilla fecha: 09-04-2005 a las 13:56:33.
Responder Con Cita