Thema: Delphi Paradox 7 und TCursor

Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#10
  Alt 14. Jun 2003, 20:43
Hallo Kuddel,

ich hab das jetzt noch einmal ausprobiert. Dazu habe ich eine Tabelle "lager.db" erstellt, die beide Felder, nach denen du suchen willst enthält, plus ein paar Zusatzfelder.

Dann habe ich ein Formular erstellt, mit 2 Editfeldern (für die Suchwerte) und einem Schalter "Suchen". Der pushButton Methode habe ich folgenden Code zugewiesen:

Delphi-Quellcode:
method pushButton(var eventInfo Event)
 var
  tc Tcursor
  tv TableView
endvar
  tv.open("lager.db")
  tc.attach(tv)
  if tc.locate("Lag.Nr", SuchLager.Value, "Anzahl", SuchAuftrag.Value) then
    tv.moveToRecord(tc)
  else
    msgInfo("Fehler", "Nicht gefunden")
  endif
endMethod
Tja, was soll ich sagen!? Funktioniert einwandfrei, auch mit anderen Feldern im Locate.

Welchen Typ haben deine Felder? (sind die beiden Suchfelder Integer Felder?)
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat