Select Box

Dette spm er en fortsættelse af

http://www.eksperten.dk/spm/34840

http://www.eksperten.dk/spm/34920

du skal bruge:

ListBoxStationsNavn->ItemIndex

for at finde hvilken index der er valgt!

så slipper du også for din løkke!
altså:

strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];

       

while (!Query1->Eof)
      {
    ListBoxStationsNavn->Items->Add(Query1->FieldValues[\"Hjemstation\"]);
    Query1->Next();
      }

    ListBoxStationsNavn->MultiSelect = false;
    strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];
   


Giver flg fejl

List index out of bounds (-1)

så har du ikke valgt noget!

lav det her tjek:

if (ListBoxStationsNavn->ItemIndex!=-1)
strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];
   

Hvis jeg laver dette check

if (ListBoxStationsNavn->ItemIndex!=-1)
    strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];

    else
    strSelectedStation = \"trold\";

får jeg desværre flg resultat i min while løkke

while ((strSelectedStation != tmpHjem || tmpStatus != 0) && !Table2->Eof)
    {
    Table2->Next();
    Memo1->Lines->Add(strSelectedStation);
    Memo1->Lines->Add(tmpHjem);
    }

trold
Brøndby
trold
Albertslund
trold
Glostrup
trold
Næstved
trold
Lyngby
trold
Køge
trold

Hvis jeg trykkede på Næstved, ja så skulle den jo have stoppet ved Næstved men desaværre indeholder

strSelectedStation nu værdien \"trold\"

ok hvad vil du have til at stå i memoen?

Jeg tror har snakket forbi hinannden, men hvad
du ønsker skal du få!

Jeg prøver at forklare Formens funktion

Først skal jeg have en Listbox fyldt ud med værdier fra en Query

Det gør jeg således

while (!Query1->Eof)
      {
    ListBoxStationsNavn->Items->Add(Query1->FieldValues[\"Hjemstation\"]);
    Query1->Next();
      }


***** Problemer ******
ListBoxStationsNavn->MultiSelect = false;

    if (ListBoxStationsNavn->ItemIndex!=-1)
    strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];

    else
    strSelectedStation = \"trold\";

*******

Jeg får ganske rigtigt 7 bynavne i min Listbox, meningen er at man så skal vælge en, og den der er valgt gemmes i en database, således


Table2->Open();
Table2->First();
tmpHjem = Table2->FieldValues[\"Hjemstation\"];
tmpStatus = Table2->FieldValues[\"Udrykningsstatus\"];


    while (!(strSelectedStation != tmpHjem && tmpStatus != 0) && !Table2->Eof)
    {
    Table2->Next();
tmpHjem = Table2->FieldValues[\"Hjemstation\"];
    tmpStatus = Table2->FieldValues[\"Udrykningsstatus\"];
    }

   
    Table2->Edit();
    Table2->FieldValues[\"Udrykningsstatus\"] = 1;
    Table2->Refresh();

Dette ville medføre at While Løkken vil blive brudt det øjeblik Jeg fandt strSelectedStation i databsen (Tabel Objektet) Dette sker bare ikke i praksis while løber fortsætter til eof, det er derfor altid sidste record der bliver opdateret
således

Table2->FieldValues[\"Udrykningsstatus\"] = 1;

Derfor opfandt jeg en lille memo box, der mens while løkken kørte fik tilføjet mine variabler strSelectedStation og tmphjem, så jeg kunne se hvad det var at while løkken checkede på, og den checker desværre om

trold = køge
trold = albertslund

osv

istedet
for
albertslund = køge
albertslund = albertslund

hvis der f.eks blev trykket på albertslund
   
nedenfor er while løkken i den version med memo feltet der kun udskriver hvad der bliver checket på

while (!(strSelectedStation != tmpHjem && tmpStatus != 0) && !Table2->Eof)
    {
    Table2->Next();
    Memo1->Lines->Add(strSelectedStation);
    Memo1->Lines->Add(tmpHjem);
    tmpHjem = Table2->FieldValues[\"Hjemstation\"];
    tmpStatus = Table2->FieldValues[\"Udrykningsstatus\"];
    }

ok at fylde listboxen ud er ikke noget problem! At finde ud af hvad for en der er markeret er nu heller ikke noget problem!

    if (ListBoxStationsNavn->ItemIndex!=-1)
    strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];

    else
    strSelectedStation = \"trold\";


    strSelectedStation vil nu være lige med \"trold\", hvis der ikke er valgt noget i listbox, ellers vil den være lig med det valgte felt! Ikke?

Hvad vil du med det valgte felt?

indsætte det i en database?

hvor ikke bruge en sql sætning?

jeg kan ikke den rigtige syntaks noget ligende;

update \"et eller andet\" Set Udrykningsstatus = 1 Where Hjemstation = strSelectedStation\";

Det virker helt forkert at du er nød til at putte dem i en memo!

Jeg starter på en form med at indtaste værdien der skal ledes efter f.eks Humlebæk, hvis den ikke findes i databasen, kommer jeg til denne nye form hvor jeg skal vælge et alternativ til Humlebæk

men bruger jeg



    if (ListBoxStationsNavn->ItemIndex!=-1)
    strSelectedStation = ListBoxStationsNavn->Items->Strings[ListBoxStationsNavn->ItemIndex];


får jeg List index out of bounds (-1) fejlen

Før formen er færdig loadet, dvs jeg får slet ikke mulighed for at vælge en by fra listboksen

du skal jo også først bruge det når det hele er opsat, og en bruger har valgt et felt, og eventuelt trykket på en knap!

Det gjorde unægtelig en STOR forskel,

Du gætter aldrig, at jeg er nybegynder ;-)

Tusind tak for hjælpen