Hola comunidad:

Tengo un problemita con unos combobox.... Tengo varios combobox relacionados de la siguiente manera:

1.- cboColonias.- Muestra las colonias activas relacionadas al Municipio seleccionado.

2.- cboMunicipio.- Muestra los municipios activos relacionados al Estado seleccionado.

3.- cboEstado.- Muestra los estados activos relacionados al Pais seleccionado.

4.- cboPais.- Muestra los paises activos que existen en la DB.

Al seleccionar un País debe cambiar en cascada el estado y mostrar los que estan activos y relacionados al pais elegido, como no existe estado elegido el cbomunicipio y cbocolonia estaran vacios.... y asi van relacionados llenandose acorde al elemento elegido. Pues bueno la rutina funciona pero demora un momento en cargar la información y se ve el repintado del control asi que quisiera saber si existe alguna manera de bloquear el repintado del control al momento de llenarlos para agilizar un poco la carga de elementos o al menos.....

Tambien intento implementar el uso de las propiedades AutoCompleteMode & AutoCompleteSource para que muestre los elementos que coincidan con el criterio escrito por el usuario y funciona muestra los elementos pero el problema que tengo es que cuando selecciona alguno con teclado dando enter o tabulador NO cambian los elementos de los combobox siguientes es como si el usuario no seleccionara ningun elemento y los indices no cambian ammm no se si me explico anexo el codigo que utilizo para estas operaciones ojalá alguien pueda orientarme y/o asesorarme gracias y saludos cordiales.

Código:

Protected Sub GetInfo(ByRef Info As clsPersonal)
        If Not Info Is Nothing Then
            Me.Invalidate()
            bolCargando = True
            lnId = Info.Id
            txtClave.Text = Info.Clave
            txtNSS.Text = Info.NSS
            txtApPaterno.Text = Info.ApPaterno
            txtApMaterno.Text = Info.ApMaterno
            txtNombre.Text = Info.Nombre
            cboTipoSangre.SelectedIndex = Info.Tipo_Sangre
            cboSexo.SelectedIndex = Info.Sexo
            txtTelefono.Text = Info.Telefono_Casa
            txtMovil.Text = Info.Movil
            txtNextel.Text = Info.Nextel
            txtEmail.Text = Info.Email
            txtDireccion.Text = Info.Direccion
            FillPais(cboPais)
            cboPais.SelectedValue = Info.Pais
            FillEstado(cboEstado, Info.Pais)
            cboEstado.SelectedValue = Info.Estado
            FillLocalidad(cboLocalidad, Info.Estado)
            cboLocalidad.SelectedValue = Info.Localidad
            FillColonia(cboColonia, Info.Localidad)
            cboColonia.SelectedValue = Info.Colonia
            FillAreas(cboArea)
            cboArea.SelectedValue = Info.Area
            FillDepartamento(cboDepartamento, Info.Area)
            cboDepartamento.SelectedValue = Info.Departamento
            FillPuesto(cboPuesto)
            cboPuesto.SelectedValue = Info.Puesto
            chkActivo.Checked = Info.Activo
            If Info.Fotografia Is Nothing Then
                picLogotipo.Imagen = My.Resources.noDisponiblep
            Else
                picLogotipo.Imagen = Info.Fotografia
            End If
        End If
    End Sub
 
    Public Sub FillColonia(ByRef cboColonia As ucComboBox, ByVal indice As Long)
        clsConexion.CargaCombo("SELECT tbcolonia.id, tbcolonia.strnombre FROM(tbcolonia) INNER JOIN tbcolonialocalidad ON tbcolonia.id =  tbcolonialocalidad.idcolonia  WHERE(tbcolonia.bolactivo = 1) AND  tbcolonialocalidad.idlocalidad = " & indice, "tbcolonia", "strnombre", "id", cboColonia)
 
    End Sub
 
    Public Sub FillEstado(ByRef cboEstado As ucComboBox, ByVal indice As Long)
        clsConexion.CargaCombo("SELECT tbestado.id, tbestado.strnombre FROM(tbestado) INNER JOIN tbestadopais ON tbestado.id = tbestadopais.idestado WHERE(tbestado.bolactivo = 1) AND tbestadopais.idpais = " & indice, "tbpais", "strnombre", "id", cboEstado)
    End Sub
 
    Public Sub FillLocalidad(ByRef cboMunicipio As ucComboBox, ByVal indice As Long)
        clsConexion.CargaCombo("SELECT tblocalidad.id, tblocalidad.strnombre FROM(tblocalidad) INNER JOIN tblocalidadestado ON tblocalidad.id =  tblocalidadestado.idlocalidad  WHERE(tblocalidad.bolactivo = 1) AND  tblocalidadestado.idestado = " & indice, "tblocalidad", "strnombre", "id", cboMunicipio)
    End Sub
 
    Public Sub FillPais(ByRef cboPais As ucComboBox)
        clsConexion.CargaCombo("SELECT id, strnombre FROM tbpais WHERE bolactivo=1", "tbpais", "strnombre", "id", cboPais)
    End Sub
 
    Public Shared Sub CargaCombo(ByVal strQuery As String, ByVal strTabla As String, ByVal strDisplayMember As String, ByVal strValueMember As String, ByVal cmbCombo As ComboBox)
        Using cnnConexion = New MySqlConnection(strConexion)
            Try
                cmbCombo.Text = ""
                cmbCombo.DataSource = GetDataSet(strQuery, strTabla).Tables(strTabla)
                cmbCombo.DisplayMember = strDisplayMember
                cmbCombo.ValueMember = strValueMember
                cmbCombo.SelectedValue = -1
                cmbCombo.AutoCompleteMode = AutoCompleteMode.SuggestAppend
                cmbCombo.AutoCompleteSource = AutoCompleteSource.ListItems
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Using
    End Sub

Saludos:

Lo que yo hago es cargar todos los combos con los valores por omision (normalmente el primer registro) en una sola transaccion. Despues, en cada combo, en el evento SelectedIndexChanged, si hago la busqueda correspondiente. Si necesitan estar vacios, entonces solo cargo el primero y espero para los siguientes.

Por la forma en que manejas, por cada combo haces una conexion y una busqueda, cargando asi la aplicacion, y ademas (supongo) que cuando cambian el valor del combo, tambien haces una nueva busqueda.

Considera esto. Espero ayude.


JOSE LUIS

Gracias por tu tiempo...

Lo que hago en el evento SelectedIndexChanged es lo siguiente:

Código:

Private Sub cboEstado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboEstado.SelectedIndexChanged
        If bolCargando Then
            Try
                FillLocalidad(cboLocalidad, cboEstado.SelectedValue)
            Catch ex As Exception
                FillLocalidad(cboLocalidad, -1)
            End Try
            Application.DoEvents()
            FillColonia(cboColonia, -1)
            cboEstado.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cboEstado.AutoCompleteSource = AutoCompleteSource.ListItems
            cboLocalidad.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cboLocalidad.AutoCompleteSource = AutoCompleteSource.ListItems
            bolCargando = False
        End If
    End Sub
 
    Private Sub cboLocalidad_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboLocalidad.SelectedIndexChanged
        If bolCargando Then
            Try
                FillColonia(cboColonia, cboLocalidad.SelectedValue)
            Catch ex As Exception
                FillColonia(cboColonia, -1)
            End Try
            Application.DoEvents()
            cboLocalidad.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cboLocalidad.AutoCompleteSource = AutoCompleteSource.ListItems
            cboColonia.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cboColonia.AutoCompleteSource = AutoCompleteSource.ListItems
            bolCargando = False
        End If
    End Sub
 
    Private Sub cboPais_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPais.SelectedIndexChanged
        If bolCargando Then
            Try
                FillEstado(cboEstado, cboPais.SelectedValue)
            Catch ex As Exception
                FillEstado(cboEstado, -1)
            End Try
            FillLocalidad(cboLocalidad, -1)
            FillColonia(cboColonia, -1)
            Application.DoEvents()
            cboPais.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cboPais.AutoCompleteSource = AutoCompleteSource.ListItems
            cboEstado.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            cboEstado.AutoCompleteSource = AutoCompleteSource.ListItems
            bolCargando = False
        End If
    End Sub

por lo que veo la manera en que lo haces es más óptima pero no logro entender como aplicarlo? Igual y me estoy viendo muy lelo o tonto pero no alcanzo a entender cuando me dices que cargue los combos con sus valores por omision. Ojala puedas explicarme con bolitas y palitos ya que aveces soy muy cabeza dura gracias y disculpa la molestia

Saludos:

Para ello uso una funcion colocada en un modulo para enviar, en una misma transaccion, varias solicitudes y crear varias DataTables al mismo tiempo. Es asi:

Public Ds_Trabajo As New DataSet

Public Function Pr_MultiplesBusquedas(ByVal devDataset As Boolean, ByVal Cnfrmar As Boolean, ByVal ParamArray consultaSQL() As String) As Boolean
'************************************************* ********************************
' Procedimiento de conexion y busqueda MULTIPLES en la base de datos
'************************************************* ********************************
Dim NmroTblas, NmroQrys, MYSQLERROR As Integer
Dim DTName, MYSQLMESG As String
Dim Dt_Dato As Object

Try
da = New MySqlDataAdapter()
ds = New DataSet
conex = New MySqlConnection(MyConnStr) ' String de conexion
conex.Open()
NmroTblas = 0
NmroQrys = consultaSQL.Count
For i = 0 To consultaSQL.Count - 1
DTName = "Tabla" & i
MySqlCadena = consultaSQL(i)
MysqlComando = New MySqlCommand(MySqlCadena, conex)
With MysqlComando
.CommandType = CommandType.Text
.CommandTimeout = Dt_TimeOut
End With
da.SelectCommand = MysqlComando
da.Fill(ds, DTName)
If ds.Tables(DTName).Rows.Count > 0 Then
Dt_Dato = ds.Tables(DTName).Rows(0)(0)
If IsDBNull(Dt_Dato) = False Then
If devDataset = True Then
Ds_Trabajo = ds
End If
NmroTblas = NmroTblas + 1
End If
End If
Next
If Cnfrmar = True Then ' Para saber si se quiere validar que todos los querys devuelvan algo
If NmroTblas = NmroQrys Then
Return True
Else
MYSQLERROR = 1065
MYSQLMESG = "Some query returns empty data. Call IT Dept."
Return False
End If
Else
If NmroTblas > 0 Then
Return True
Else
Return False
End If
End If
Catch ex As MySqlException
MYSQLERROR = ex.Number
MYSQLMESG = ex.Message
MsgBox("Error: " & MYSQLERROR & ". Description : " & MYSQLMESG, MsgBoxStyle.Information, "Procedure Data Base Error. ")
Return False
Finally
conex.Close()
End Try
End Function


Despues, para llamarla es:

Dim Qry_1, Qry_2, Qry_3 As String

' Todos los registros de tabla1
Qry_1 = "SELECT codigo1, nombre1 FROM tabla1 ORDER BY codigo1; "

' El Primer registro de tabla2, correspondiente al primer registro de tabla1
Qry_2 = "SELECT codigo1, codigo2, nombre2 FROM tabla2 WHERE codigo1 = '01'; "

' El Primer registro de tabla3, correspondiente al primer registro de tabla1 y tabla2
Qry_3 = "SELECT codigo1, codigo2, codigo3, nombre3 FROM tabla3 WHERE codigo1 = '01' AND codigo2 = '01'; "

If Pr_MultiplesBusquedas(True, True, Qry_1, Qry_2, Qry_3) = True Then
With ComboBox1
.DataSource = Ds_Trabajo.Tables(0) ' Lo recuperado en Qry_01
.DisplayMember = "nombre1"
.ValueMember = "codigo1"
End With

With ComboBox2
.DataSource = Ds_Trabajo.Tables(1) ' Lo recuperado en Qry_02
.DisplayMember = "nombre2"
.ValueMember = "codigo2"
End With

With ComboBox3
.DataSource = Ds_Trabajo.Tables(3) ' Lo recuperado en Qry_03
.DisplayMember = "nombre3"
.ValueMember = "codigo3"
End With

End If

Estos serian los "VALORES POR OMISION" de cada combo. Despues en el evento SelectedIndexChanged, continuas como estas.

Espero ayude.



JOSE LUIS

Gracias por tu respuesta! Apenas estoy revisando y tratando de implementarla tengo una duda.... porque al intentar implementar tu solucion me dice en las lineas

Código:

NmroQrys = consultaSQL.
            For i = 0 To consultaSQL.Count - 1

'count' no es un miembro de 'System.Array' ojalá pudieras aseorarme y gracias por tu tiempo.

Saludos:

En el codigo esta asi:

NmroQrys = consultaSQL.Count
For i = 0 To consultaSQL.Count - 1

consultaSQL es un array de strings, y tiene la propiedad Count. Asi esta en la definicion de parametros de la funcion.

Espero ayude.


JOSE LUIS

Si este me comi la linea lo tengo tal cual como lo colocaste pero me sigue marcando: 'count' no es un miembro de 'System.Array' no se porque lo hace necesito importar alguna libreria? Por cierto funciona de maravilla la rutina muchas gracias......

PD. Trabajo con Visual Studio .Net 2010 Framework 4

Saludos:

La verdad no se. En mi codigo funciona bien. El parametro esta definido como "ByVal ParamArray consultaSQL() As String". Eso nos crea un array.

Si quieres postealo todo, a ver que es.


JOSE LUIS