DRopDownList (Vb.net)

[Mychy]

prova con .text

[Dardino]

scrivi così:

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

e vedi se l'istruzione SQL che ottieni è l'istruzione SQL corretta.

Ti ricordo anche che prima di riempire la combo, la devi pulire altrimenti vedi anche quelli vecchi


aggiungo anche dovresti usare i tag CODE per il codice

[Mychy]

comunque se stai usando ASP.NET ti consiglio di andare sul forum asp.net, magari lì avrai più aiuto

[fexo]

Infatti tutte le volte che seleziono nel drop1 mi ricarica tutti i gruppi nel drop2 mantiene quelli vecchi più quelli nuovi

Come faccio a pulire ?
ListGruppo.ClearSelection()
ma ho provato e non funziona

E poi devo pulire sia drop1 che drop2

[Dardino]

mi sembra sia

ListGruppo.Items.Clear

[fexo]

Ho provato a inserirlo nella load del drop1 ma non funziona

[Dardino]

mettilo sempre nell'evento click del drop1

se non funziona, postami il codice dell'evento click del dropgruppi

[fexo]

L'evento clik non l'ho trovato quindi l'ho messo nel ListGruppo_SelectedIndexChanged

<code>
Private Sub ListGruppo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListGruppo.SelectedIndexChanged


Dim objCmd2 As New SqlCommand("SELECT desc FROM PR_TIPIDOC WHERE GRUPPO ='" & ListGruppo.SelectedItem.Value & "' ORDER BY desc", ObjCnn)
Dim objR As SqlDataReader = objCmd2.ExecuteReader

Dim firstrow As Boolean = True
While objR.Read
ListTipodoc.Items.Add(New ListItem(objR(0).ToString()))
End While
objR.Close()
'...
'istruzioni per popolare la ListTipo
'...
End Sub
</code>


<code> QUESTO è INVECE IL LOAD DEL DROPGRUPPO

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


Dim objCmd As New SqlCommand("SELECT gruppo FROM TIPI GROUP BY gruppo ORDER BY GRUPPO", ObjCnn)
Dim objR As SqlDataReader = objCmd.ExecuteReader


Dim firstrow As Boolean = True
While objR.Read
ListGruppo.Items.Add(New ListItem(objR(0).ToString()))
'If firstrow Then
' TxtData.Text = objR(5).ToString()
' 'txtCategoryDescription.Text = objR(2).ToString()
' firstrow = False
'End If
End While
'End While
objR.Close()

End Sub
</CODE>


Grazie ancora

[Dardino]

Private Sub ListGruppo_SelectedIndexChanged(ByVal sender As _
        System.Object, ByVal e As System.EventArgs) Handles _
        ListGruppo.SelectedIndexChanged 

ListTipodoc.Items.Clear

Dim objCmd2 As New SqlCommand("SELECT desc FROM PR_TIPIDOC WHERE GRUPPO ='" & ListGruppo.SelectedItem.Value & "' ORDER BY desc", ObjCnn) 
Dim objR As SqlDataReader = objCmd2.ExecuteReader 

Dim firstrow As Boolean = True 
While objR.Read 
ListTipodoc.Items.Add(New ListItem(objR(0).ToString())) 
End While 
objR.Close() 
'... 
'istruzioni per popolare la ListTipo 
'... 
End Sub

[fexo]

Ho fatto così ma mi da questo errore

"Riferimento a un oggetto non impostato su un'istanza di oggetto. "