none
Duas comboBox RRS feed

  • Pergunta

  • Como carregar uma segunda combobox conforme o valor selecionado na primeira combobox?

     Private Sub CarregaEstado()
            Dim qryCombo = From tb In bd.T_Estados _
                           Select tb
    
            Me.cbo_Estado.DataSource = qryCombo.ToList
            Me.cbo_Estado.DisplayMember = "sig_Estado"
            Me.cbo_Estado.ValueMember = "num_ID_Estado"
    
        End Sub
    
        Private Sub cbo_Estado_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Estado.SelectedIndexChanged
            If cbo_Estado.SelectedIndex = -1 Then Exit Sub
    
            Dim qryCombo = From tb In bd.T_Cidades _
                           Where tb.num_ID_Estado Like Me.cbo_Estado.SelectedValue _
                           Select tb Order By tb.nom_Cidade
    
            Me.cbo_Cidade.DataSource = qryCombo.ToList
            Me.cbo_Cidade.DisplayMember = "nom_Cidade"
            Me.cbo_Cidade.ValueMember = "num_ID_Cidade"
        End Sub

    Sergio Ivanenko
    domingo, 7 de junho de 2009 19:21

Respostas

  • Nao tenho como testar no momento.... mas isso deve funcionar, levando em consideraçao que vc tenha os relacionamentos ja mapeados


    Private
    Sub cbo_Estado_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbo_Estado.SelectedIndexChanged
            If cbo_Estado.SelectedIndex = -1 Then Exit Sub

            Me.cbo_Cidade.DataSource = (Me.cbo_Estado.SelectedItem  as T_Estado).T_Cidades
            Me.cbo_Cidade.DisplayMember = "nom_Cidade"
            Me.cbo_Cidade.ValueMember = "num_ID_Cidade"
        End Sub


    • Marcado como Resposta Ivanenko domingo, 21 de junho de 2009 16:37
    sábado, 20 de junho de 2009 00:58
    Moderador