locate keine aktualisierung



  • seid einigen Tagen versuche ichmein Programm fertig zu machen.
    einen bug bekomme ich nicht raus.

    unter __fastcall TKartei::TKartei(TComponent* Owner)
    : TForm(Owner)

    steht unter anderem folgender source

    .....

    select =  " Select Patnr,Link,Name,Vorname,geburt,scandat,Zuordnung,Klinik,id,ersteldat ";
    	select += " from Dokumente";
    	select += " where Patnr = :kolo" ;
    	select += " Order By ersteldat DESC";
    
    	ADOQuery1 ->Open();
    	ADOQuery1 ->Edit();
    	ADOQuery1 ->SQL->Clear();
    	ADOQuery1 ->SQL->Add(select);
    	ADOQuery1 ->Open();
    	ADOQuery1 ->Parameters->ParamByName("kolo")->Value = PatDat(laufwerk1);
    	ADOQuery1 ->Requery();
    	pat1 = ADOQuery1->FieldByName("patnr")->AsString;
    	ADOTableAPW->Open();
    
    		   TLocateOptions Opts;
    		   Opts.Clear();
    		   Opts << loPartialKey;
    		   ADOTableAPW->Locate("Patnr",pat1, Opts);
    	Label1->Caption = ADOTableAPW->FieldByName("patnr")->AsString;
    

    obwohl die Ausgabe im Label1 stimmt werden meine DBListBox als auch die DBTextfelder nicht aktualisiert.

    Ich habe nun eine Button eingebaut der nochmal die Locate Funktion ausführt -> dann gehts ist aber sehr sehr unsportlich.

    Was mach ich falsch? 😕

    /Edit akari : Bitte Code-Tags benutzen! sfds



  • Verwende TForm::OnShow statt den Konstruktor für die Abfrage,
    da noch nicht alle Komponenten initialisiert sind.



  • super vielen Dank das wars ! und so simpel.
    🙂


Log in to reply