Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#4
  Alt 1. Jul 2003, 19:54
Delphi-Quellcode:
Form1.Query1.Prior;
  Form1.Query1.Edit;
  If Form1.Query1.RecNo = Form1.Query1.FieldCount-1 Then
    begin
      Form1.Query1.Last;
      Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
    end
  else
    Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
end;
Ich sehe da kein i mehr. Du mußt Dir das mit dem Datenbank-Cursor mal durchlesen. Du springst doch mit Prior und Last und Edit kreuz und quer durch die Daten.
Gruß
Hansa
  Mit Zitat antworten Zitat