none
Crear iten en blanco dentro de en combobox cargado por medio de un datatable en vb.net 2012

    Pregunta

  • Hola buenos dìas, he cargado un combobox con informacion de un datatable de esta manera,

     Function RefrescarCBO_Estados() As DataTable
            Dim dt As DataTable
            Dim objDatosocu As New cDatos

            Try
                objDatosocu.Conectar("select clave_distribuidora,CONCAT(clave_distribuidora, '-', consecutivo) as  DistribuidoraConsecutivo from consecutivos_vendedoras")
                cboEstadosConce.DataSource = objDatosocu.dt
                cboEstadosConce.DisplayMember = objDatosocu.dt.Columns(0).Caption.ToString
                cboEstadosConce.ValueMember = objDatosocu.dt.Columns(1).Caption.ToString


            Catch ex As Exception
                MsgBox("Error:" & vbCrLf & ex.Message)
            End Try

            Return dt

        End Function

    Pero debo crear un iten en blanco, como puedo hacerlo sin tener que crear un registro en blanco en la tabla que cargo en el datatable???????

    lunes, 27 de marzo de 2017 13:27

Respuestas

  • Hola:
    Prueba con esto
    Function RefrescarCBO_Estados() As DataTable
            Dim dt As DataTable
            Dim objDatosocu As New cDatos
            Try
                objDatosocu.Conectar("select clave_distribuidora,CONCAT(clave_distribuidora, '-', consecutivo) as  DistribuidoraConsecutivo from consecutivos_vendedoras")
                'Creamos un nuevo registro para el elemento en blanco
                Dim loFila As DataRow = objDatosocu.dt.NewRow()
                loFila.Item(objDatosocu.dt.Columns(1).Caption.ToString) = 0
                loFila.Item(objDatosocu.dt.Columns(0).Caption.ToString) = ""
                ' Insertamos la nueva fila en la primera posición del objeto DataTable.
                objDatosocu.dt.Rows.InsertAt(loFila, 0)
                cboEstadosConce.DataSource = objDatosocu.dt
                cboEstadosConce.DisplayMember = objDatosocu.dt.Columns(0).Caption.ToString
                cboEstadosConce.ValueMember = objDatosocu.dt.Columns(1).Caption.ToString

            Catch ex As Exception
                MsgBox("Error:" & vbCrLf & ex.Message)
            End Try
            Return dt
        End Function

    P.D.
    Lo que no entiedo es que cargas el combobox y despues devuelves el datatable

    Un saludo desde Bilbo
    Carlos


    lunes, 27 de marzo de 2017 18:16