none
Problema al llenar DataGridView RRS feed

  • Pregunta

  • El problema que tengo es porque las columnas en su mayoria son combobox 

    El error que sale al realizar filtro es:

    ciertos elementos cargan otros no los que no salen ese error yo llamo al filtro de busqueda segun el codigo:

     Sub Filtro()
    
            Using cnx As New SqlConnection(ConfigurationManager.ConnectionStrings("cnxString").ToString())
                Dim cmd As New SqlCommand("SELECT * FROM CabeceraCustodia$ WHERE CodigoCadena LIKE '%" & txtBuscar.Text & "%'", cnx)
                cnx.Open()
                Dim red As SqlDataReader = cmd.ExecuteReader
                Dim drow As DataRow
                drow = Me.ds.Tables("CabeceraCustodia$").Rows(Me.iposicion)
                Try
                    If red.Read Then
    
                        'txtCodEdicion.Text = GetStringValue(red("CodigoEdicion"))
                        txtNumCadena.Text = GetStringValue(red("CodigoCadena"))
                        txtCliente.Text = GetStringValue(red("Solicitante"))
                        txtContacto.Text = GetStringValue(red("Contacto"))
                        txtProyecto.Text = GetStringValue(red("Programa"))
                        txtDireccion.Text = red("Direccion")
                        txtDistrito.Text = red("Distrito")
                        txtProvincia.Text = red("Provincia")
                        txtDepartamento.Text = red("Departamento")
                        txtEmail.Text = GetStringValue(red("Email"))
                        txtTelefono.Text = GetStringValue(red("Telefono"))
                        txtMuestra.Text = GetStringValue(red("Muestreado"))
                        txtFecha.Text = GetStringValue(red("FechaRegistro"))
                        cboTransporta.Text = GetStringValue(red("Transportado"))
                        cboI1.Text = GetStringValue(red("EmpresaTransportado"))
                        txtFecha1.Text = GetStringValue(red("FechaTransportado"))
                        H1.Text = GetStringValue(red("HoraTransportado"))
                        cboEntrega.Text = GetStringValue(red("Entregado"))
                        cboI2.Text = GetStringValue(red("EmpresaEntregado"))
                        txtFecha2.Text = GetStringValue(red("FechaEntregado"))
                        H2.Text = GetStringValue(red("HoraEntregado"))
                        cboIngresa.Text = GetStringValue(red("Ingresado"))
                        cboI3.Text = GetStringValue(red("EmpresaIngresado"))
                        txtFecha3.Text = GetStringValue(red("FechaIngresado"))
                        H3.Text = GetStringValue(red("HoraIngresado"))
                        cboRecibe.Text = GetStringValue(red("Recibido"))
                        cboI4.Text = GetStringValue(red("EmpresaRecibido"))
                        txtFecha4.Text = GetStringValue(red("FechaRecibido"))
                        H4.Text = GetStringValue(red("HoraRecibido"))
                        txtMC.Text = GetStringValue(red("MuestraConservada"))
                        txtObsMuestra.Text = GetStringValue(red("ObservRecepcion"))
                        txtObsLab.Text = GetStringValue(red("ObservLaboratorio"))
    
                        txtOT.Text = GetStringValue(red("Ot"))
                        txtPr.Text = GetStringValue(red("Pr"))
                        txtMuestreador.Text = GetStringValue(red("Muestreador"))
    
                       
                        DetalleFiltro()
                        '
                        btnEditar.Enabled = True
                        If MenuU.tssRol.Text = "1" Then
                            btnNuevo.Enabled = False
                        Else
                            btnNuevo.Enabled = True
                        End If
    
                        If cnx.State = ConnectionState.Open Then
                            cnx.Close()
                        End If
                    Else
                        MsgBox("no hay registro con ese codigo")
                    End If
                    btnCancelar.Enabled = True
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
    
                
            End Using
        End Sub
     Private Sub DetalleFiltro()
            Using cnx As New SqlConnection(ConfigurationManager.ConnectionStrings("cnxString").ToString())
                Desactivado()
                btnEditar.Enabled = False
                btnGuardar.Enabled = False
                btnQuitar.Enabled = False
                oCommandBuilder = New SqlCommandBuilder(Me.oDataAdapter)
                oDataAdapter = New SqlDataAdapter("Select * from DetalleCadena$ where CodigoCadena like '%" & txtNumCadena.Text & "%' ORDER BY CodigoMuestra ", cnx)
                oDataTable = New DataTable
                oDataAdapter.Fill(oDataTable)
                dgvDetalle.DataSource = oDataTable
                dgvDetalle.Columns("CodigoEdicion").Visible = False
                dgvDetalle.Columns("CodigoCadena").Visible = False
            End Using
        End Sub

    Quiero solucionar el problema de ese error ya que en esos combos sale vacio.

    Saludos y Gracias

    PD. Cabe mencionar algo si esto lo hubiera implementado de un inicio y se hayan llenado hacia a tablas asi con combos estos si lo muestran q e scomo pasa con los que si pero como no el resto es columna textbox pero si la cambio a combo alli al filtrar se da eso. entonces quiero q se pueda mostrar y sus respectivas ediciones .

    Los combos son vinculados a tablas para cargar sus elementos de seleccion

    • Editado Javier Roque sábado, 16 de junio de 2018 15:52
    • Cambiado Enrique M. Montejo martes, 19 de junio de 2018 14:47 Pregunta relacionada con controles de Windows Forms.
    sábado, 16 de junio de 2018 15:21

Todas las respuestas

  • Javier , ese error que te da es porque al momento de imputar el valor al combobox el valor no se encuentra aun cargado en la lista de elementos del combo.

    Asegurate de tener todos los elementos de la lista del combo cargados antes de iniciar.

    sábado, 16 de junio de 2018 17:46
  • Hola gracias por responder, bueno yo.tengo los combos cargados en load de cada columna respectiva.
    sábado, 16 de junio de 2018 23:45