none
Problemas con la propiedad selectvalue de un combobox en vb.net RRS feed

  • Pregunta

  • hola buenas tardes

    tengo un problema con un combobox, el cual lleno desde la base de datos y se llena ben 

         sql = ""
            sql = "SElect idpromotor, nombrepromotor from Promotores"
            Dim lector1 As New Data.SqlClient.SqlDataAdapter(sql, conexionbd)
            Dim dt1 As New DataTable

            lector1.Fill(dt1)
            cboPromotor.DataSource = dt1
            cboPromotor.DisplayMember = "nombrepromotor"
            cboPromotor.ValueMember = "idpromotor"
            cboPromotor.Text = ""

    hasta aqui todo bien

    pero cuando hago una consulta a base de datos para llenar la información de ese combo lo lleno asi, pero aqunque si le asigna el valor al combo sin marcar erro este no muestra nada no se posicona en donde debe ser por que el combo si tiene informacion

           

    Dim sql1 As String = "select foliocredito,idcliente,idpromotor,idgrupo,idtipoprestamo,fecha,fechavencimiento,montocredito,interes,pagoprogramado,estatus,plazo,tasaint,montoahorro FROM creditos where foliocredito= " & Me.numcredito.Text

            Dim lector11 As Data.SqlClient.SqlDataReader

            Try

                comando = conexionbd.CreateCommand

                comando.CommandText = sql1
                lector11 = comando.ExecuteReader()
                While lector11.Read()
                    cbocliente.SelectedValue = lector11.Item(1).ToString
                    cboPromotor.SelectedValue = lector11.Item(2).ToString
                    cbogrupo.SelectedValue = lector11.Item(3).ToString
                    cbotipopres.SelectedValue = lector11.Item(4).ToString

                End While

                lector11.Close()

    miércoles, 17 de octubre de 2018 17:59

Respuestas

  • Una solución que puedes usar: Define un método como este:

    Private Sub AsignarSelectedValue(ByVal cmb As ComboBox, ByVal valor As String)
        Dim i As Integer = 0
        For Each item In cmb.Items
    
            If item.ToString() = valor Then
                cmb.SelectedIndex = i
                Return
            End If
            i += 1
        Next
    End Sub

    Luego lo llamas por ejemplo así:

    AsignarSelectedValue(cbocliente, lector11.Item(1).ToString())

    • Propuesto como respuesta Pablo Rubio jueves, 18 de octubre de 2018 15:48
    • Marcado como respuesta Pablo Rubio jueves, 25 de octubre de 2018 15:06
    miércoles, 17 de octubre de 2018 20:59