Checkbox en un DBGrid

[Angel.Matilla]

Empezado por Casimiro Notevi

¿Dónde está el update?

En el código, al final:

void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;

          fPersona->tTemp->Edit();
          fPersona->tTemp->FieldValues[Column->FieldName] = !nValor;
          fPersona->tTemp->Post();
     }
}
//---------------------------------------------------------------------------

Después de haber subido el mensaje hice otra prueba distinta con este otro código:

void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
     int nCodigo, nValor;

     if (Column->FieldName == "SELECCION")
     {
          nValor = Column->Field->AsInteger;
          nCodigo = DBGrid1->Columns->Items[4]->Field->Value;

          Query->Close();
          Query->SQL->Text = "UPDATE " + cTabTemp + " SET Seleccion = :Seleccion WHERE Codigo = :Codigo";
          Query->ParamByName("Seleccion")->AsInteger = nValor == 0 ? 1 : 0;
          Query->ParamByName("Codigo")->AsInteger    = nCodigo;
          try
          {
               Query->ExecSQL();
               Query->Transaction->Commit();
          }
          catch(...)
          {
          }
     }
}
//---------------------------------------------------------------------------

Y sí, así me actualizó la tabla... pero ¡me dejó vacío el DBGrid!