Multiselect bei DBGRIB (Die selectierte Felder auslesen)

[Karstadt]

Hallo. Es sollen mehrere DS in eien DBGRIB ausgewählt werden können (die Funktion kann man in Options von DBGRIG einschalten) nun möchte ich aber die Ausgewählte Zeilen ausgeben. Wie war das noch mal?

for i:= 0 to ???

[Thanatos81]

Hi!

Versuchs mal damit:

Delphi-Quellcode:

for i := 0 to DBGrid1.SelectedRows.Count-1 do
  begin
    DBGrid1.DataSource.DataSet.GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
  //irgendwas Tolles mit dem Datensatz anstellen
  end;

[Karstadt]

[Karstadt]

Ist einen ähnliche Frage wenn ich mit Locate arbeite möchte ich das der Datensatz selektiert wird wie geht das?

  IF Tabelle.('FELD','INHALT',[]) Then Selektiere Datensatz in DBGRIB?

[Thanatos81]

Nun... mit dieser Prozedur werden alle Datensätze in einem Grid markiert, denn sollte man für deine Zwecke anpassen können

Delphi-Quellcode:

procedure DBGridSelectAll(AGrid: TDBGrid) ;
begin
   AGrid.SelectedRows.Clear;
   with AGrid.DataSource.DataSet do
   begin
     First;
       while not EOF do
       begin
         AGrid.SelectedRows.CurrentRowSelected := True;
         Next;
       end;
   end;
end;

[stonimahoni]

Hi...
ich habe sowas bei mir auch realisiert :

Delphi-Quellcode:

   if (FormAuftragStat.DBGridAuftrStatListe.SelectedRows.Count > 0) then
      with FormAuftragStat.DBGridAuftrStatListe.DataSource.DataSet do
      for i:=0 to FormAuftragStat.DBGridAuftrStatListe.SelectedRows.Count-1 do
      begin
         GotoBookmark(pointer(FormAuftragStat.DBGridAuftrStatListe.SelectedRows.Items[i]));
.
.
.
.

Vielleicht hilft dir das .


mfg

carsten

[Karstadt]

Delphi-Quellcode:

  IF Tabelle.Locate('FELD','INHALT',[]) Then
  begin
    AGrid.SelectedRows.Clear;
    AGrid.SelectedRows.CurrentRowSelected := True; 
  end;