combobox

[sagma]

que tal, espero que sea de tu ayuda.

Código:

    Private Sub cmb_dpto_nac_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx_dptonacimiento.SelectedIndexChanged
        If IsNumeric(Me.cbx_LugarNacimiento.SelectedValue) And IsNumeric(Me.cbx_dptonacimiento.SelectedValue) Then
            actualizar_provincia(Me.cbx_LugarNacimiento.SelectedValue, Me.cbx_dptonacimiento.SelectedValue)
        End If
    End Sub

Código:

    Function actualizar_provincia(ByVal cod_pais As Integer, ByVal cod_dpto As Integer)
        Dim Trx As New accesodatos.Transacciones(False)
        Dim DtP As New DataTable
        Dim Ad As New accesodatos.Operaciones(Trx.Comand)

        DtP = Ad.Traer("provincias", "provdpto = " & CStr(cod_dpto) & " AND provpais = " & CStr(cod_pais) & "", "ORDER BY provcodi")
        Me.cbx_provnacimiento.DataSource = DtP
        Me.cbx_provnacimiento.DisplayMember = "provdesc"
        Me.cbx_provnacimiento.ValueMember = "provcodi"

        Trx.CerrarConexion()
    End Function