Actualizar campo de dbgrid

[[Caral]]

Hola
Tiene su lojica, la verdad desconozco esto del dbgrid multiselect, nunca lo he trabajado, es mas no se como trabaja.
Normalmente lo hago diferente, seguro me complico pero cuando quiero una seleccion grande de datos, los guardo en otra tabla, defino en otro grid si son los que en verdad queria o necesitava y luego, actualizo u otro.
En este tipo de programa uso mucho el PageControl y bueno me simplifico la vida asi.
Seguro hay muchas formas de matar moscas.
Siento no poder ayudarte con esto, tal vez algun otro forista.
Saludos

[jorelivi]

De ante mano te estoy agradecido por todo el tiempo que te tomaste, sigo en line para dicho problema, gracias y cuidate.

Oye de donde eres?

[[Caral]]

Hola
Soy Español y Vivo en Costa Rica.
Saludos

[[Caral]]

Hola
Roman, Puedes darnos una mano con esto?
Por Favor.
Saludos

[[egostar]]

Antes de meternos con tu proceso de actualización, lo que yo creo es que primero debes de saber que registro estas buscando para de esa manera hacer lo que quieres.

Para saber que registros has seleccionado realiza este proceso

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    with DBGrid1.DataSource.DataSet do
    begin
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
        ShowMessage(Table1.FieldByName('cclie').AsString);
        // No se si estas usando un TTable o un TQuery.
        // Cambialo a tu conveniencia.
      end;
    end;
  end
end;

Una vez que obtengas esto ya puedes hacer lo que quieras.

Salud OS.

[[Caral]]

Hola egostar
Muy interesante el concepto, lo vi en el help de delphi pero me quede colgado pensando si era lo correcto o no, ya sabes, aprendiz.
Saludos Maestro.

[jorelivi]

Es correcto pero como actualizo los datos que estan despues del message, pues cuando no selecciono ningun registro del Grid si lo hace pero caso contrario me manda un error.

Código Delphi [-]
  if DBGrid1.SelectedRows.Count > 0 then
    begin
      with DBGrid1.DataSource.DataSet do
      begin
        for i := 0 to DBGrid1.SelectedRows.Count-1 do
        begin
          GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
          ShowMessage(Query1.FieldByName('Docto').AsString);
          // No se si estas usando un TTable o un TQuery.
          // Cambialo a tu conveniencia.
             sQuery:='Update Fecha_venc Set Fecha_venc=Fecha_apli+ias Where Docto=octo';
             Query1.SQL.Add(sQuery);
             Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
             Query1.ExecSQL;
        end;
      end;
    end

Disculpen soy novato.