none
comboBox no cargan datos RRS feed

  • Pregunta

  • buen dia!

    Bueno tengo 3 comboBox conectados a una base de datos en sql server2008 donde cada uno de los comboBox en un tipo de producto y los tres se llaman "Proclas1, Proclas2 y Proclas3" los 3 tienen datos y si los puedo seleccionar y si se guarda en la base de datos, mi problema es que cuando le doy aceptar para cerrar ese formulario, cuando lo vuelvo a abrir el primer comboBox(ProClas1) aparece vacio como si no hubiera seleccionado ningun dato, aunque en la base de datos si se llena el campo cada combo box se llama cboGrupo1, cboGrupo2 y cboGrupo3

    mi codigo para modificarlos es:

    Dim I As Integer
            Dim J As Integer
            On Error Resume Next
            tbAux2.Close()
            On Error GoTo 0
            If lstProd.Text <> "" Then
                tbAux2.Open("Select ProductoClave, ProDescripcion, ProPrecio, ProCantporCaja, ProTipo, ProDesc, ProCosto, ProClas1, ProClas2, ProClas3, ProImagen1, ProIamgen2, ProImagen3 from Productos where ProductoClave='" & Trim(Mid(lstProd.Text, 1, 20)) & "'", CnCP, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
                
                I = 0
                J = cboGrupo1.Items.Count - 1
                cboGrupo1.Text = cboGrupo1.Items.Item(I)
                Do
                    If Trim(UCase(cboGrupo1.Items.Item(I))) = Trim(UCase(tbAux2("ProClas1").Value.ToString)) Then
                        cboGrupo1.Text = cboGrupo1.Items.Item(I)
                        Exit Do
                    End If
                    I = I + 1
                    If I > J Then
                        Exit Do
                    End If
                Loop

                I = 0
                J = cboGrupo2.Items.Count - 1
                cboGrupo2.Text = cboGrupo2.Items.Item(I)
                Do
                    If Trim(UCase(cboGrupo2.Items.Item(I))) = Trim(UCase(tbAux2("ProClas2").Value.ToString)) Then
                        cboGrupo2.Text = cboGrupo2.Items.Item(I)
                        Exit Do
                    End If
                    I = I + 1
                    If I > J Then
                        Exit Do
                    End If
                Loop

                I = 0
                J = cboGrupo3.Items.Count - 1
                cboGrupo1.Text = cboGrupo3.Items.Item(I)
                Do
                    If Trim(UCase(cboGrupo3.Items.Item(I))) = Trim(UCase(tbAux2("ProClas3").Value.ToString)) Then
                        cboGrupo3.Text = cboGrupo3.Items.Item(I)
                        Exit Do
                    End If
                    I = I + 1
                    If I > J Then
                        Exit Do
                    End If
                Loop

                I = 0
                J = cboTipo.Items.Count - 1
                If I <= J Then
                    Do While I <= J
                        If Trim(cboTipo.Items.Item(I)) = Trim(tbAux2("ProTipo").Value) Then
                            cboTipo.Text = cboTipo.Items.Item(I)
                            Exit Do
                        End If
                        I = I + 1
                    Loop
                End If
                grpProductos.Visible = False
                grpCaptura.Visible = True
                txtClave.Enabled = False
            Else
                MsgBox("Necesita Seleccionar un Producto.", MsgBoxStyle.Critical, "ERROR")
            End If


    espero me puedan ayudar SALUDOS!!

    miércoles, 18 de diciembre de 2013 19:59