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!!