Einzelnen Beitrag anzeigen

Benutzerbild von Mauli
Mauli

Registriert seit: 7. Apr 2003
Ort: Wuppertal
160 Beiträge
 
Delphi 2005 Enterprise
 
#1

Einfaches 'Datensatz finden'

  Alt 5. Aug 2003, 14:04
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

Geht doch bestimmt einfacher, oder?
  Mit Zitat antworten Zitat