Loop

Status
Niet open voor verdere reacties.

brickster

Gebruiker
Lid geworden
28 okt 2010
Berichten
11
Mijn excuses voor het nogmaals posten van een vraag,
De onderstaande code werkt maar hij schiet in een loop.
Ik heb echt geen flauw idee hoe dit komt.

Code:
procedure TForm1.StartClick(Sender: TObject);

var
Type_veld: string;
Status_veld: string;
Nummer_veld: string;
Statusdatum_veld: string;

begin

  with table1 do
    table1.open;  //* Verkoopstatus database
    table1.first;
    while not table1.eof do begin
    //* loopt door de db heen en selecteert alle verkoopstatussen die nog behandeld moeten worden.
      if table1.fieldbyname('NogBehandelen').AsBoolean = True then begin
        memo1.lines.add(' na de eerste if ');

        //memo1.lines.add(' record gelezen '+ Nummer_veld);
        //* Loopt door de database en selecteerd de record op de ingegeven datum.
      if table1.locate('Statusdatum', Edit1.text, []) then begin
        Type_veld := table1.fieldbyname('Type').asstring + ';';
        Status_veld := table1.fieldbyname('Status').asstring + ';';
        Nummer_veld := table1.fieldbyname('Nummer').asstring + ';';
        Statusdatum_veld := table1.fieldbyname('Statusdatum').asstring + ';';

                memo1.lines.add(' na de tweede if ');

        memo1.lines.add('! ' + 'Klantnummer:  ' + Nummer_veld + '  Status: ' + status_veld + '  Datum:  ' + Statusdatum_veld);

      end;
              memo1.lines.add(' voor de end zonder punt comma  ');
      end;
      table1.next;
              memo1.lines.add(' na de table 1 next ');
    end;

  memo1.lines.add(' Bestelstatus Gecontroleerd ');
end;

end.
 
table1.locate zoekt in de database naar een record. De bedoeling is dat hij het record zoekt wat opgegeven word in edit1. dit doet hij nu ook maar blijft dit herhalen in een loop.
 
Door de Locate spring je naar een ander record in je dataset.

Wanneer je begint gaat de Table1.Next dan niet naar het 2e record maar naar een heel andere positie....
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan