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
Espero y puedan ayudarme
