DRopDownList (Vb.net)

[fexo]

Salve a tutti
Ho un problema con l'oggetto dropdownlist.

Eseguo il codice di seguito riportato ma mi da il seguente errore
"INDICE OLTRE I LIMITI DELLA MATRICE"

No riesco a capire l'errore

Al momento che apro la pagina mi dovrebbe caricare i dati e quindi riempire l'oggetto

Private Sub ListGruppo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListGruppo.Load


Dim objCmd As New SqlCommand("SELECT gruppo FROM DOC GROUP BY gruppo ORDER BY GRUPPO", ObjCnn)
Dim objR As SqlDataReader = objCmd.ExecuteReader
Dim firstrow As Boolean = True
Do While objR.Read
ListGruppo.Items.Add(New ListItem(objR(1).ToString()))
'If firstrow Then
' TxtData.Text = objR(5).ToString()
' 'txtCategoryDescription.Text = objR(2).ToString()
' firstrow = False
'End If
Loop
'End While
objR.Close()

End Sub

grazie

[Mychy]

objR dovrebbe avere un solo elemento objR(0)

[fexo]

Ti ringrazio era quello il problema.

Ma se io ho 2 DropDownList, cioè il secondo dipende dal primo?

dDovrei una volta selezionato il primo attivare il secondo a darmi l'elenco in dipendenza del primo.

Esempio:
Il primo è composto da:
1°Frutta;
2°Carne;
3°Pesce

Selezionando il primo nel secondo deve apparire:
Mele
Pere
Banane
ecc

E' un esempio stupido ma forse rende l'idea

Grazie

[Mychy]

se questo può esserti di aiuto:

Dim elenco1 As String() = {"elenco2", "elenco3"}
    Dim elenco2 As String() = {"mela", "Pera"}
    Dim elenco3 As String() = {"sardina", "sogliola"}

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer
        Select Case Me.ComboBox1.SelectedItem
            Case "elenco2"
                For i = 0 To UBound(elenco2)
                    Me.ComboBox2.Items.Add(elenco2(i))
                Next
            Case "elenco3"
                For i = 0 To UBound(elenco3)
                    Me.ComboBox2.Items.Add(elenco3(i))
                Next
        End Select
       
    End Sub

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 0 To UBound(elenco1)
            Me.ComboBox1.Items.Add(elenco1(i))
        Next
    End Sub

Nel tuo case basta che passi il parametro della query

[fexo]

Perdonami:
Perchè hai dichiarato le tre variabili "Elenco"?

Se non ho capito male nella ComboBox1_SelectedIndexChanged dovrei effettuare la seconda select passandogli l'indice della prima combobox?
Non so può essere utile sapere che l'accesso è a una singola tabella composta da 3 campi

1° id
2° Gruppo
3° Tipo

nella prima DropDown va inserito il Gruppo

nella seconda DropDown va inserito il tipo che dipende dal gruppo

Non mi è molto chiaro, scusa ma sono alle prime armi.

[Dardino]

Su load del form popoli la prima lista con la select dei valori principali (Frutta, Verdura, Carne)
Poi su evento click della lista fai una seconda select per popolare la seconda lista, select che ovviamente dipenderà dal valore selezionato es.

Private Sub ListGruppo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListGruppo.Load

Dim objCmd As New SqlCommand("SELECT DISTINCT gruppo FROM DOC ORDER BY GRUPPO", ObjCnn) 

'...
'istruzioni per popolare la ListGruppo
'...

End Sub

Private Sub ListGruppo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListGruppo.Click

Dim objCmd2 As New SqlCommand("SELECT tipo FROM DOC WHERE gruppo='" & ListGruppo.SelectedItem & "' ORDER BY tipo", ObjCnn) 

'...
'istruzioni per popolare la ListTipo
'...

End Sub

[fexo]

Grazie mille)

Ma perchè però non trovo l'evento click di ListGruppo?

[Mychy]

Originariamente inviato da fexo
Perdonami:
Perchè hai dichiarato le tre variabili "Elenco"?

Se non ho capito male nella ComboBox1_SelectedIndexChanged dovrei effettuare la seconda select passandogli l'indice della prima combobox?
Non so può essere utile sapere che l'accesso è a una singola tabella composta da 3 campi

1° id
2° Gruppo
3° Tipo

nella prima DropDown va inserito il Gruppo

nella seconda DropDown va inserito il tipo che dipende dal gruppo

Non mi è molto chiaro, scusa ma sono alle prime armi.

Io ho dichiarato gli elenchi perchè ho preso i dati da array e non da un database, ma il concetto è lo stesso, infatti alla fine del messaggio ho scritto che per te basta passare il parametro della query, o l'intera query, secondo come hai impostato il lavoro

[fexo]

Ho inserito tutto il codice
(Dim objCmd2 As New SqlCommand("SELECT tipo FROM DOC WHERE gruppo='" & ListGruppo.SelectedItem & "' ORDER BY tipo", ObjCnn)

nel ListGruppo_SelectedIndexChanged perchè non ho trovato l'evento click del drop

ma mi da errore (mi sottolinea) la select e mi dice "L'operatore "&" non èp definito per i tipi "STring"

che suggerimento hai?

Grazie

[fexo]

Risolto funzione a metà voleva il .value

Ma il problema è che adesso nella seconda drop mi da tutti i campi indipendentemente da quello ch eseleziono prima perchè secondo te?