Fylde listbox mere flere poster

Har du prøvet:

Dim liste as New ArrayList()
         
            Sub Fyldboks()
             
                strSQL = "SELECT DISTINCT Fornavn, Efternavn FROM Info;"

                objComm = New OleDbCommand(strSQL, objConn)
                objDataReader = objComm.ExecuteReader()

                Do While objDataReader.Read = true
                    liste.add(objDataReader("Fornavn") + " " + objDataReader("Efternavn"))
            Loop

                Lst.DataSource = liste
                Lst.DataBind()

                objDataReader.Close()
          End Sub

jo, det ser umiddelbart ud som en løsning, men her kommer den med en "End of statement expected."

Nej, der må du undskylde, jeg havde lavet en trykfejl! :-)

Hvordan kommer det ellers til at virke, når jeg så skal bruge det i sammenhæng med min DB og lst.SelectedItem.Value? For hvis value bliver = eks. "Peter Hansen", kan jeg vel ikke bruge det den anden vej, når posterne er delt op i Fornavn og Efternavn?

Du kan give elementet en værdi.
Du har måske et Id i din tabel i DB, tag den med ud og giv elemntet den som value.

Sådan her:

iste.Items[iste.Items.Count - 1].Value = objDataReader.GetInt32(0).ToString();

Bare skriv hvis du ikke er med

Du kan jo også bare give dit element fornavn som value

iste.Items[iste.Items.Count - 1].Value = objDataReader("Fornavn")

Det er muligt der skal laves om i paranteserne, jeg har det fra C#

Okay, jeg er ikke helt med endnu :-)

Lst.Items(Lst.Items.Count - 1).Value = objDataReader("Fornavn")

- Vil det så sige at det jeg vælger fra min lst får tildelt værdien fornavn, og så faktisk har sin oprindelige værdi igen?

ja det har den, men det er ikke særlig hensigtmæssigt, idet du kun vil kunne have en Søren og én Hans osv osv.

Det er meget bedre at give dem det Id på den række du har i tabellen.

Select Id, Fornavn, Efternavn From Info

OG så give dit element Id som værdi.

Okay, jeg har prøvet med dette, da jeg har en kollonne med unikke bruger_ID:

strSQL = "SELECT DISTINCT Bruger_Id, Fornavn, Efternavn FROM Info;"

Lst.Items(Lst.Items.Count - 1).Value = objDataReader("Bruger_id")

Men jeg får fejlen: Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

hvad siger den til det her:

Lst.Items(Lst.Items.Count).Value = objDataReader("Bruger_id")

Jeg får en

"Value of type 'System.Web.UI.WebControls.ListItemCollection' cannot be converted to 'Integer'."

Mit bruger_id består af tal, kan jeg lave det om i

Lst.Items(Lst.Items.Count).Value = objDataReader("Bruger_id") ?

Lst.Items(Lst.Items.Count).Value = objDataReader("Bruger_id").ToString()

Nope.. den melder samme fejl. Den sætter streg under (Lst.Items.Count)

sådan her så måske:

Do While objDataReader.Read = true
                    liste.add(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id").ToString())
            Loop

Det der kommer efter kommaet skal så være værdien

nej det er fordi vi har glemt det her:

liste.Add(new ListItem(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id").ToString())


Det er "new ListItem" der skal bruges når du vil have en anden værdi end teksten

Okay! Sorry, nu blev jeg lidt forvirret :-)

Jeg har fjernet

Lst.Items(Lst.Items.Count).Value = objDataReader("Bruger_id").ToString()

Og prøver med det sidste der, men hvis jeg laver en response.write(Lst.SelectedItem.Value) - udskriver den eks. "Peter Hansen" Burde den ikke udskrive Bruger_ID'et?

Jeg skal nok smide nogle ekstra points oveni hatten :-)

Jeg må lige se hvordan din kode ser ud nu :o)

Hej igen! :-) Det er lige taget ud af en større sammenhæng, men jeg har pillet det her ud, og så tjekker jeg bare neders hvilken værdi SelectedItem.value har. Ind til videre udskriver den både for navn og efternavn.. 


Sub Fyld_Listboks             

Dim liste as New ArrayList()

                strSQL = "SELECT DISTINCT Bruger_ID, Fornavn, Efternavn FROM Info;"

                'Lst.Items(Lst.Items).Value = objDataReader("Bruger_id").ToString()

                objComm = New OleDbCommand(strSQL, objConn)
                objDataReader = objComm.ExecuteReader()

                Do While objDataReader.Read = true
                    Lst.Add(new ListItem(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id").ToString()))
                    'Lst.Add(objDataReader("Fornavn") + " " + objDataReader("Efternavn"))
                Loop

                Lst.DataSource = Liste
                Lst.DataBind()

                objDataReader.Close()
          End Sub

              'Tjekker her hvad der bliver skrevet ud

          Sub AddBtn_Click(Sender As Object, E As EventArgs)

              response.write(Lst.SelectedItem.Value)
Exit Sub

Men er det ikke fordi at vi her Add'er til Array-listen "liste":

liste.Add(new ListItem(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id").ToString())

og så til sidst sætte Lstboksen "Lst" til

Lst.DataSource = Liste

?

For nu tror jeg at jeg har det til at virke, bare med med

Sub Fyld_Listboks()             

                strSQL = "SELECT DISTINCT Bruger_Id, Fornavn, Efternavn FROM Info;"

                objComm = New OleDbCommand(strSQL, objConn)
                objDataReader = objComm.ExecuteReader()

                Do While objDataReader.Read = true

                    Lst.Items.Add(new ListItem(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id")))
             
                Loop

                objDataReader.Close()
  End Sub

Så bliver array-listen "liste" slet ikke anvendt :-)

Jo, du er inde på det rigtige. Spring ArrayListen helt over, og nøjes med at tilføje ListItems direkte til listboxens ItemCollection.

Fremgangsmåden med at angive DataSource og derefter DataBinde vil ikke kunne finde ud af at det er ListItems der er i ArrayListen.

Sub Fyld_Listboks
                strSQL = "SELECT DISTINCT Bruger_ID, Fornavn, Efternavn FROM Info;"

                objComm = New OleDbCommand(strSQL, objConn)
                objDataReader = objComm.ExecuteReader()

                Lst.Items.Clear()
                Do While objDataReader.Read = true
                    Lst.Add(new ListItem(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id").ToString()))
                Loop
               
                objDataReader.Close()
          End Sub

jeg var for sent ude... perfekt!

Okay ja :-) Men ellers tak for det. Men hvordan kalder jeg så

(objDataReader("Fornavn") + " " + objDataReader("Efternavn"), objDataReader("Bruger_id")

Hvis jeg nu skal overføre det til en anden lstBox? Sådan at det jeg ser i den nye listbox er "Fornavn Efternavn" men værdien er stadig "Bruger_ID" ?

Du kan overføre ListItems sådan her:

ListItem item = Lst.SelectedItem
Lst2.Items.Add(item)

Eller:
Lst2.Items.Add(new ListItem(Lst.SelectedItem.Text,Lst.SelectedValue))

Jeg har været lidt væk, men jeg kan se du har fået løst det meste :o)

Jep, I skal have mange tak begge to! Jeg fik løst det sidste med

Lst2.Items.Add(new ListItem(Lst.SelectedItem.Text,Lst.SelectedItem.Value))

Smid svar, så skal jeg prøve at fordele points'ne :-)

tak for det :o)

Det var godt du fik det løst.

Er 80/20 i orden? Ellers må i jo brokke jer :-)

Jeg er ikke i bekneb for points, så fint med mig.