Einfaches 'Datensatz finden'

[Mauli]

Hallo,

ich denke mir es gibt da etwas einfaches, was ich einfach nicht sehe.

Vielleicht kann mir jemand helfen.

Ich versuche aus 2 Tabellen passende Datensätze zu finden.

Delphi-Quellcode:

Tabelle1.Open; Tabelle2.Open; Tabelle1.First;
  for i := 0 to Tabelle1.RecordCount - 1 do
  begin
  if Tabelle2.Locate('Account',
                 VarArrayOf([Tabele1Account.AsVariant]),[])
       then
              begin
              Tabelle1.Edit;
              ...
              tRep.Post;
            end;
       Tabelle1.Next;
     end;

Das klappte leider nicht. Darum habe ich das so gemacht:

Delphi-Quellcode:

Tabelle1.Open; Tabelle2.Open; Tabelle1.First;
  for i := 0 to Tabelle1.RecordCount - 1 do
  begin
  if Tabelle2.Locate('Account; Account',
                 VarArrayOf([Tabele1Account.AsVariant,
                             Tabele1Account.AsVariant]),[])
       then
              begin
              Tabelle1.Edit;
              ...
              tRep.Post;
            end;
       Tabelle1.Next;
     end;

Das klappt. Sieht aber umständlich aus :freak:

Geht doch bestimmt einfacher, oder?

[Gast]

Hi Mauli, 8)

das dürfte so gehen

Code:

   with Tablelle1 do
   begin
      First;
      while NOT EOF DO
      begin
         if Tabelle2.Locate('Account', VarArrayOf([Tabele1Account.AsVariant]),[]) then
         begin
            Tabelle1.Edit;
            ...
            tRep.Post;
         end;
         Next;
      end;
 end;

Gruß

Paul Jr.

P.S.

[Mauli]

Vielen Dank

Da war ich wieder zu muständlich