Einzelnen Beitrag anzeigen

DBman

Registriert seit: 31. Mai 2003
Ort: nähe hannover
77 Beiträge
 
#7

Stack overflow

  Alt 10. Jun 2003, 14:44
Hm also ich wollte das jetzt eigentlich so wie Stargate3 lösen mit dem Edit-Feld , ist für mein Problem eigentlich das günstigste...
Ich dachte mir ich packe das in den Code an die Stelle , kurz vor dem Übernehmen der Daten... also in das BeforePost-Ereignis , richtig? Wenn nein , korrigiert mich.

In meinem Programm gibt es also die hier relevanten Komponenten :
TDBEdit , TTable , (Speicherbutton)
Naja das sieht dann bei mir so aus :
Code:
procedure Tfm_Main.tblKuDaBeforePost(DataSet: TDataSet);
var AlterIndex:String;
begin
   AlterIndex:=tblKuDa.IndexName;
   tblKuDa.IndexName:='KUNKZ';   //Kundenkürzel

{ if tblKuDa.Locate('KUNKZ', VarArrayOf([DBEd_KunKz.EditText]),  [loCaseInSensitive])= true } //ich machs besser mit Findkey..

 if tblKuDa.FindKey([DBEd_KunKz.EditText] )=true then
      begin ShowMessage(DBED_KunKz.EditText + 'GIBTS SCHON!!');
            DBEd_KunKz.SetFocus;
      end;
    tblKuDa.IndexName:=AlterIndex;
end;

... Aber ich kriege da immer die Meldung Exception : Stack Overflow.. hm
kann mir da nochmal nen Tipp geben woran es liegen könnte?
Denn die Dinge , die wir erst lernen müssen , bevor wir sie tun , lernen wir beim Tun. - Aristoteles
  Mit Zitat antworten Zitat