Caricare una ComboBox

venerdì 20 maggio 2005 - 16.01

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

motodriver2002 Profilo | Newbie

42 messaggi | Data Invio: ven 20 mag 2005 - 16:01

Salve a tutti,

ho il problema di dover caricare una ComboBox manualmente e non con una SELECT sul DB.

Io mi trovo dentro un FOR ed ad ogni ciclo faccio

myCombo.Items.Add("VALORE")

e così imposto il "DisplayMember".
Come faccio però ad impostare anche il "ValueMember"?

In pretica devo caricare la combo con un valore che va visualizzato nella tendina ed un cosice associato ad ognuno di questi valori.

Grazie.

freeteo Profilo | Guru

6.542 messaggi | Data Invio: sab 21 mag 2005 - 03:07

ciao,
potresti crearti 1a datatable con due colonne, aggiungi le righe nel ciclo for e poi gli imposti i displaymember al nome di 1a colonna e il valuemember all'altra...ovviamente settandogli come datasource alla tabella...
ciao

Cteniza Profilo | Guru

1.509 messaggi | Data Invio: sab 21 mag 2005 - 07:01

Non esiste nessun motivo per caricare la combobox "manualmente" specie se si ha bisogno anche del valuemember.
Combobox può essere "bindata" con tutte le fonti che espongono IList.
Personalmente aggiungerei una tabella "creata al volo" sul dataset con i relativi dati e userei quella per il binding con il combobox

RogerRabbit Profilo | Newbie

1 messaggi | Data Invio: ven 28 apr 2006 - 12:19

Ciao, nella mai cassetta degli attrezzi ho trovato questa, se ti può essere utile l'avevo scritta per una caso particolare. effettivamente non è quasi mai necessario caricare una combo a mano l'unico problema che hai è gestire il cosidetto "campo vuoto" ovvero se vuoi che un form all'avvio non visualizzi nulla in quella combo se è associata ad un datatable di solito ti mette il 1° elemento della tabella

Sub Add_ComboBox(ByVal mytablesrc As String, ByRef myComboBox As ComboBox, ByVal strExpr As String)
Dim row As DataRow
Dim foundRows() As DataRow
Dim strSort As String
Dim prec As String = ""

myComboBox.Items.Clear()
strSort = myComboBox.Tag & " ASC"

foundRows = myDataSet.Tables(mytablesrc).Select(strExpr, strSort)
For Each row In foundRows
If Not IsDBNull(row(myComboBox.Tag)) AndAlso prec <> row(myComboBox.Tag) Then
myComboBox.Items.Add(row(myComboBox.Tag))
prec = row(myComboBox.Tag)
End If
Next
End Sub

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !