GotoBookMark

[BPL]

ecfisa... hola....

NO , el locate ni el Findkey, ni nada por el estilo me sirve los datos no son unicos, ningun campo.
Por eso solo tengo que hacerlo con ir al recno....
de lo contario tendria que crear un nuevo campo y darle un numero unico , y eso no quiero....

Por si hay dudas, esto es lo que necesito
desde la primera grilla (conectada al datasouce) lanzo 5 registros, y aparecen en la segunda grilla y estando aqui necesito intervenirlo la tabla cada uno de esos 5...

creo que la solucion va por gotoBookMark...¿?


ojala tengas algo sobre esto.... que me pueda ayudar...

[cloayza]

En vez de utilizar una segunda Grilla podrias utilizar un TListBox...

Este ejemplo esta usando la tabla country del DBDemos...

Código Delphi [-]
{Cada vez que se hace un doble click sobre la grilla se agrega al ListBox, el Pais y el Puntero al registro...}
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ListBox1.Items.AddObject(Table1.fieldbyname('NAME').AsString,Pointer(Table1.GetBookmark));
end;

{Cada vez que hago click sobre un item del TListBox lo dirigo al registro correspondiente...}
procedure TForm1.ListBox1Click(Sender: TObject);
begin
     Table1.GotoBookmark(ListBox1.Items.Objects[ListBox1.ItemIndex]);
end;

Ten en cuenta que debes implementar las validaciones correspondientes.

Saludos

[ecfisa]

Ahora me queda un poco más claro... hacés selección múltiple.

Busca en la ayuda de delphi 'SelectedRows', viene un ejemplo que quizá te pueda orientar.

Aunque sinceramente, creo que agregar un campo autoincremental, no ocupa tanto y te ahorraría dolores de cabeza...

Saludos.

[ecfisa]

Hola BPL.

Como no me gusta dejar las cosas a medias, te implemento un ejemplo.

Los componentes: 2 TDBGrid, 2 TButton, 1 TTable (Country/DBDEMOS), 1 ClientDataSet.

Para el ejemplo en ambos DBGrids esta dgMultiSelect = True.
Un botón copia al ClientDataSet y el otro obtiene todas las posiciones en la tabla de los datos copiados:

Código Delphi [-]
type
  TForm1 = class(TForm)
    tb: TTable;
    dsCtry: TDataSource;
    ClientDataSet: TClientDataSet;
    dsCDS: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    CDSName: TStringField;
    CDSCapital: TStringField;
    CDSContinent: TStringField;
    CDSArea: TFloatField;
    CDSPopulation: TFloatField;
    btnPasar: TButton;
    btnObtener: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnPasarClick(Sender: TObject);
    procedure btnObtenerClick(Sender: TObject);
  private
    FLstBM: TStrings;
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientDataSet.CreateDataSet;
  ClientDataSet.Open;
end;

procedure TForm1.btnPasarClick(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
    FLstBM:= TStringList.Create; // Crear lista
    with DBGrid1.DataSource.DataSet do
      for i:= 0 to DBGrid1.SelectedRows.Count -1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        FLstBM.Add(tb.Bookmark); // Guardar Bookmarks
        with ClientDataSet do
        begin
          Append;
          CDSName.Value:= tb.FieldByName('Name').AsString;
          CDSCapital.Value:= tb.FieldByName('Capital').AsString;
          CDSContinent.Value:= tb.FieldByName('Continent').AsString;
          CDSArea.Value:= tb.FieldByName('Area').AsFloat;
          CDSPopulation.Value:= tb.FieldByname('Population').AsFloat;
        end;
      end;
   end;
end;

procedure TForm1.btnObtenerClick(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid2.SelectedRows.Count > 0 then
  begin
    with DBGrid2.DataSource.DataSet do
     for i:= 0 to DBGrid2.SelectedRows.Count -1 do
     begin
        GotoBookmark(pointer(DBGrid2.SelectedRows.Items[i]));
        // Aca obtenes los 'n' BookMarks de la Tabla
        tb.BookMark:= FLstBM[i];
        // A partir de aca haces lo que gustes...
        ShowMessage(tb.FieldByName('Name').AsString);
     end;
     FLstBM.Free;  // Liberar lista
  end;
end;

Saludos.