[Angel.Matilla]

Empezado por ecfisa

Hola.

De este modo tiene que funcionarte:

Pues no, tampoco actualiza la tabla. Al final encontré uan forma un pelín "pedestre", pero fumciona y hasta que encuentre una mejor me vale:

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

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

          fPersona->tTemp->Close();     // Cierro al tabal ANTES de actualizar
          fPersona->Query->Close();
          fPersona->Query->SQL->Text = "UPDATE " + cTabTemp + " SET Seleccion = :Seleccion WHERE Codigo = :Codigo";
          fPersona->Query->ParamByName("Seleccion")->AsInteger = nValor == 0 ? 1 : 0;
          fPersona->Query->ParamByName("Codigo")->AsInteger    = nCodigo;
          try
          {
               fPersona->Query->ExecSQL();
               fPersona->Query->Transaction->Commit();
               fPersona->tTemp->Open();     // Vuelvo a abrir la tabla
          }
          catch(...)
          {
          }
     }
}