Hola.
A ver.... Si
DBGrid1 está vinculado a
Query1 no se puede hacer de la forma anterior ya que al llamar al método
Close() se cierra la consulta que alimenta a
DBGrid1 y al referenciar a
Fields[x] se elevaría una excepción.
Entonces, hay que salvar el valor del campo previamente al cerrado:
Código:
{
Variant aux = DBGrid1->Fields[0]->Value; // resguardar valor
Query1->Close();
Query1->SQL->Text = "DELETE FROM GASTO WHERE Fecha = :PVALUE";
Query1->ParamByName("PVALUE")->Value = aux;
Query1->ExecSQL();
...
}
Si el caso fuera otro, sería bueno que explicaras con que consulta o dataset está vinculado el DBGrid y el código completo de la consulta.
Saludos
