[jorelivi]

Este es mi codigo que tengo en un boton para actualizar dos situaciones diferentes dentro de un grid. pero no lo hace alguien me puede ayudar.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);var sQuery:String;var I:Integer;begin  if DbGrid1.SelectedRows.Count>0 then  // por si solo seleccionan uno...     for I := 0 to DbGrid1.SelectedRows.Count-1 do     begin       DbGrid1.DataSource.DataSet.BookMark := DbGrid1.SelectedRows[i];       // Todo lo que tengas que hacer           sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias';           Query1.Close;           Query1.SQL.Clear;           Query1.SQL.Add(sQuery);           Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);           Query1.ExecSQL;     end  else  // Todo lo que tengas que hacer   If MessageDlg('Desea actualizar los registros',mtConfirmation,[mbYes,mBNo],0)= MrYes Then Begin       sQuery:='Update cuen01 Set Fecha_venc=Fecha_apli+ias Where cclie=:cclie';       Query1.Close;       Query1.SQL.Clear;       Query1.SQL.Add(sQuery);       Query1.ParamByName('cclie').AsString:=Edit1.Text;       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);       Query1.ExecSQL;    End;end;

Espero esto sea mas claro, sigo en linea y gracias por tu tiempo

__________________