Desproteger DBGrid en ejecución

[aguml]

Gracias lo pruebo cuando llegue y te digo que tal. Por cierto no quiero que se pueda hacer multiseleccion nunca así que lo que haces al final supongo que puedo quitarlo.
Otro problema que tenia es que uso en el evento onclick del dbgrid:

Código PHP:

EditNombre->Text=DBGrid1->DataSource->DataSet->FieldValue["Nombre"]; 


Una vez que podía editar si creo un nuevo registro con el botón + del DBNavigator aparecía la línea y si la selecciono me sale un error donde dice que no se puede convertir una variable de tipo null a string. Lo he "solucionado" usando un try catch pero me gustaría hacerlo correctamente y no se como seria. ¿podrías ayudarme con eso también?

[ecfisa]

Empezado por aguml

Por cierto no quiero que se pueda hacer multiseleccion nunca así que lo que haces al final supongo que puedo quitarlo.

Si, así es.

Empezado por aguml

... si creo un nuevo registro con el botón + del DBNavigator aparecía la línea y si la selecciono me sale un error donde dice que no se puede convertir una variable de tipo null a string. Lo he "solucionado" usando un try catch pero me gustaría hacerlo correctamente y no se como seria. ¿podrías ayudarme con eso también?

Agrega el mismo código al evento BeforeAction:

Código PHP:

void __fastcall TForm1::DBNavigator1BeforeAction(TObject *Sender,
      TNavigateBtn Button)
{
  if ( Button == nbInsert )  // ¿ inserta ?
 {  
    DBGrid1->ReadOnly = false;
    DBGrid1->Options  = TDBGridOptions(DBGrid1->Options) >> dgRowSelect
                        << dgEditing;
  }
} 


Saludos

[aguml]

Creo que no me he explicado bien, el DBNavigator por defecto esta deshabilitado y al desbloquear todo también habilito a este. Si le doy al + pero no escribo nada y cambio de columna en la misma fila y luego vuelvo a la celda de columna Nombre de esa fila, en ese momento es cuando me tira la excepción.

[ecfisa]

Hola.

Empezado por aguml

Creo que no me he explicado bien, el DBNavigator por defecto esta deshabilitado y al desbloquear todo también habilito a este. Si le doy al + pero no escribo nada y cambio de columna en la misma fila y luego vuelvo a la celda de columna Nombre de esa fila, en ese momento es cuando me tira la excepción.

Reproduje la situación que comentas arriba y no obtengo error.

Tal vez descubriríamos algo si nos publicas los eventos y código donde desactivas y donde activas las acciones.

Saludos

[aguml]

Te pongo el enlace para poder descargar el proyecto: https://mega.nz/#!Uo0y2ZbT!WT7qUG6OQ...OoLYEFu6bTkt4E
Es solo una prueba para experimentar con sqlite y zeosdb ya que no se casi nada de ellos y queria ver su uso un poco haciendo una especie de base de datos de clientes donde se van insertando las consumisiones.

[ecfisa]

Hola.

No pude compilar y/o ejecutar tu código por que me faltan componentes, pero cuando usas la propiedad vectorial FieldValues en el evento OnCellClick deberías revisar que el valor del campo actual no sea nulo:

Código PHP:


void __fastcall TForm2::DBGrid1CellClick( TColumn *Column )
{
  TDBGrid  *GR = static_cast<TDBGrid*>( DBGrid1 );
  TDataSet *DS = static_cast<TDataSet*> ( DBGrid1->DataSource->DataSet );

  EditNombre->Text = VarToStrDef(DS->FieldValues["Name"], "");  // <-
  EditPrecio->Text = VarToStrDef(DS->FieldValues["Area"], "0"); // <-  

  if ( EditUnidades->Text != "" && EditPrecio->Text != "" )
    EditTotal->Text = EditUnidades->Text.ToDouble() *
                      EditPrecio->Text.ToDouble();
} 


Por mi parte prefiero no usar la propiedad FieldValues ya que, debido a que usa Variants, es la opción mas lenta.

Mas rápido es:

Código PHP:

...
void __fastcall TForm2::DBGrid1CellClick( TColumn *Column )
{
  TDBGrid  *GR = static_cast<TDBGrid*>( DBGrid1 );
  TDataSet *DS = static_cast<TDataSet*>( DBGrid1->DataSource->DataSet );

  EditNombre->Text = DS->FieldByName("Nombre")->AsString;
  EditPrecio->Text = DS->FieldByName("Precio")->AsString;

  if ( EditUnidades->Text != "" && EditPrecio->Text != "" )
    EditTotal->Text = EditUnidades->Text.ToDouble() *
                      EditPrecio->Text.ToDouble();
}
... 


Por último la opción mas eficiente es crear los campos persistentes del TDatSet y citarlos por su nombre.

Saludos

[aguml]

Que es eso de los campos persistentes?