CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Combobox

(1/1)

Jorge Israel López Ramíre:
Hola Amigos del foro, tengo un problema con un combobox, la situación es la siguiente.

Tengo dos comboBox, según el valor que seleccione en el primer combo se debe llenar el segundo, pero eso ya lo tengo, lo que sucede es que el combo segundo no se limpia si no que me mantiente los valores anteriores y la intención es que muestre los valores correspondientes a la selección del combo primero.

El código esta de la sig.manera:
-----------------------------------------------------------------------------------------------
*Cuando carga el Form
Private Sub CentrosVotacionForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.oAdapterDepartamento = New SqlDataAdapter

        oConectar.Conectar()
        oConectar.oConexion.Open()
        Dim oAdapterDepartamento As New SqlDataAdapter("select * from DEPARTAMENTO", oConectar.oConexion)
       
        Dim oAdapterMunicipio As New SqlDataAdapter("select * from MUNICIPIO", oConectar.oConexion)

        Me.oDataSet = New DataSet
        Me.oDataSet.Clear()
        oAdapterDepartamento.Fill(oDataSet, "DEPARTAMENTO")
        oAdapterMunicipio.Fill(oDataSet, "MUNICIPIO")
        oConectar.oConexion.Close()

        oDataSet.Relations.Add("DEP_MUN", oDataSet.Tables("DEPARTAMENTO").Columns("IdDepartamento"), oDataSet.Tables("MUNICIPIO").Columns("IdDepartamento"))

        Dim oDataRow As DataRow
        For Each oDataRow In oDataSet.Tables("DEPARTAMENTO").Rows
            Me.cmbDepartamentos.Items.Add(oDataRow("Descripcion").ToString)
        Next

    End Sub
--------------------------------------------------------------------------------------------
* Al seleccionar un valor del primer combo

 Private Sub cmbDepartamentos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbDepartamentos.SelectedIndexChanged

        Me.cmbMunicipios.Refresh()

        Dim drFilaPadre As DataRow
        drFilaPadre = oDataSet.Tables("DEPARTAMENTO").Rows(Me.cmbDepartamentos.SelectedIndex)

        Dim drFilaHija() As DataRow
        drFilaHija = drFilaPadre.GetChildRows("DEP_MUN")

        Dim drFila As DataRow
        For Each drFila In drFilaHija
            Me.cmbMunicipios.Items.Add(drFila("Descripcion").ToString)
        Next

 :comp: Espero y puedan ayudarme  :kicking:

Abhero:
Cambia esto:

Me.cmbMunicipios.Refresh()  

Por esto:

Me.cmbMunicipios.items.clear()

y vamos a ver que pasa. :P

Recuerdos.
Ab.  :hola:

Jorge Israel López Ramíre:
:kicking: Es justo lo que necesitaba, gracias, no sabia como llamar al método clear().

Abhero:
A la orden siempre!!!
 :lol:  :lol:  :lol:  :lol:

Navegación

[0] Índice de Mensajes