Datagridview con columna combo

jarogo · #1 (**permalink**) 30/11/2010, 07:00

Hola a todos!

estoy intentando cargar un datagridview mediante código, con la particularidad que hay un campo que en la base de datos
guarda 0/-1 y yo quiero que muestre "Si/No". Para ello defino una DataGridViewComboBoxColumn, pero no me funciona del
todo bien. Aparece el combo, me muestra los valores si y no cuando despliego, pero no cuando carga el grid. Me hace lo que
aparece en esta imagen:

http://img263.imageshack.us/img263/772/dibujokjq.jpg

Y este es el código que tengo. ¿Que estoy haciendo mal? Gracias de antemano!!

Código:

    Dim Conexion As String
    Dim Sql As String
    Dim DataAdapter As SqlDataAdapter
    Dim DataSet As New DataSet


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Conexion = "Data Source=Equipo;Initial Catalog=Datos;Persist Security Info=True;User ID=Sa;Password=XXXX"


        Sql = "SELECT CodigoEmpresa, CodigoArticulo, Inactivo FROM Articulos ORDER BY CodigoArticulo"
        DataAdapter = New SqlDataAdapter(Sql, Conexion)
        DataSet.Reset()
        DataAdapter.Fill(DataSet, "Articulos")


        Dim a As New DataGridViewTextBoxColumn
        a.DataPropertyName = "CodigoEmpresa"
        a.Name = "CodigoEmpresa"
        DataGridView1.Columns.Add(a)

        Dim b As New DataGridViewTextBoxColumn
        b.DataPropertyName = "CodigoArticulo"
        b.Name = "CodigoArticulo"
        DataGridView1.Columns.Add(b)

        Dim c As New DataGridViewComboBoxColumn
        c.DataPropertyName = "Inactivo"
        c.Name = "Inactivo"
        c.DataSource = GetDatos()
        c.DisplayMember = "valor"
        c.ValueMember = "key"
        DataGridView1.Columns.Add(c)

        Me.DataGridView1.AutoGenerateColumns = False
        Me.DataGridView1.DataSource = Nothing
        Me.DataGridView1.DataSource = DataSet.Tables("Articulos")
    End Sub

    Private Function GetDatos() As DataTable

        Dim dt As New DataTable
        dt.Columns.Add("valor")
        dt.Columns.Add("key")

        Dim row As DataRow = dt.NewRow
        row("valor") = "Si"
        row("key") = "-1"
        dt.Rows.Add(row)

        row = dt.NewRow
        row("valor") = "No"
        row("key") = "0"
        dt.Rows.Add(row)

        Return dt

    End Function

    Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError

    End Sub

devilinside · #2 (**permalink**) 30/11/2010, 21:52

Cita:

Iniciado por jarogo

Hola a todos!

estoy intentando cargar un datagridview mediante código, con la particularidad que hay un campo que en la base de datos
guarda 0/-1 y yo quiero que muestre "Si/No". Para ello defino una DataGridViewComboBoxColumn, pero no me funciona del
todo bien. Aparece el combo, me muestra los valores si y no cuando despliego, pero no cuando carga el grid. Me hace lo que
aparece en esta imagen:

http://img263.imageshack.us/img263/772/dibujokjq.jpg

Y este es el código que tengo. ¿Que estoy haciendo mal? Gracias de antemano!!

Código:

    Dim Conexion As String
    Dim Sql As String
    Dim DataAdapter As SqlDataAdapter
    Dim DataSet As New DataSet


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Conexion = "Data Source=Equipo;Initial Catalog=Datos;Persist Security Info=True;User ID=Sa;Password=XXXX"


        Sql = "SELECT CodigoEmpresa, CodigoArticulo, Inactivo FROM Articulos ORDER BY CodigoArticulo"
        DataAdapter = New SqlDataAdapter(Sql, Conexion)
        DataSet.Reset()
        DataAdapter.Fill(DataSet, "Articulos")


        Dim a As New DataGridViewTextBoxColumn
        a.DataPropertyName = "CodigoEmpresa"
        a.Name = "CodigoEmpresa"
        DataGridView1.Columns.Add(a)

        Dim b As New DataGridViewTextBoxColumn
        b.DataPropertyName = "CodigoArticulo"
        b.Name = "CodigoArticulo"
        DataGridView1.Columns.Add(b)

        Dim c As New DataGridViewComboBoxColumn
        c.DataPropertyName = "Inactivo"
        c.Name = "Inactivo"
        c.DataSource = GetDatos()
        c.DisplayMember = "valor"
        c.ValueMember = "key"
        DataGridView1.Columns.Add(c)

        Me.DataGridView1.AutoGenerateColumns = False
        Me.DataGridView1.DataSource = Nothing
        Me.DataGridView1.DataSource = DataSet.Tables("Articulos")
    End Sub

    Private Function GetDatos() As DataTable

        Dim dt As New DataTable
        dt.Columns.Add("valor")
        dt.Columns.Add("key")

        Dim row As DataRow = dt.NewRow
        row("valor") = "Si"
        row("key") = "-1"
        dt.Rows.Add(row)

        row = dt.NewRow
        row("valor") = "No"
        row("key") = "0"
        dt.Rows.Add(row)

        Return dt

    End Function

    Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError

    End Sub

hola, no me da el tiempo para probar tu código pero cuando he trabajado con combos he usado la propiedad DataPropertyName para indicarle el nombre de la columna (del datargidview) que actua como el SLECTEDvaluemember . prueba quitando esa línea.

jarogo · #3 (**permalink**) 01/12/2010, 06:44

Cita:

Iniciado por devilinside

hola, no me da el tiempo para probar tu código pero cuando he trabajado con combos he usado la propiedad DataPropertyName para indicarle el nombre de la columna (del datargidview) que actua como el SLECTEDvaluemember . prueba quitando esa línea.

Hola devilinside, gracias por contestar!

he probado lo que tu dices, pero entonces esa columna queda desvinculada de la base de datos, digamos que es una columna que está en el "aire": cuando cargo el datagrid no me aparecen los valores que hay en la base de datos (aparecen todos los combos vacios) y cuando le doy a un boton guardar tampoco me actualiza los datos.

Entiendo que esa línea es para establecer la relación entre el campo del grid y el campo de la base de datos, y por tanto no se puede omitir (o por lo menos a mi no me funciona bien si la quito)

¿Se te ocurre otra cosa? Gracias nuevamente por el interés!!!

devilinside · #4 (**permalink**) 02/12/2010, 09:40

Creo, que sé lo que está sucediendo. Debe ser por que son idénticos los nombres de columnas ( el nombre de tu columna del combo tiene el mismo nombre de la columna que contiene el valor que viene de la BD). Para evitar eso puedes renombrar la columna que viene de tu BD.

Cita:

Iniciado por jarogo

Dim Conexion As String
Dim Sql As String
Dim DataAdapter As SqlDataAdapter
Dim DataSet As New DataSet

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Conexion = "Data Source=Equipo;Initial Catalog=Datos;Persist Security Info=True;User ID=Sa;Password=XXXX"

Sql = "SELECT CodigoEmpresa, CodigoArticulo, Inactivo as Inact FROM Articulos ORDER BY CodigoArticulo"
DataAdapter = New SqlDataAdapter(Sql, Conexion)
DataSet.Reset()
DataAdapter.Fill(DataSet, "Articulos")

Dim a As New DataGridViewTextBoxColumn
a.DataPropertyName = "CodigoEmpresa"
a.Name = "CodigoEmpresa"
DataGridView1.Columns.Add(a)

Dim b As New DataGridViewTextBoxColumn
b.DataPropertyName = "CodigoArticulo"
b.Name = "CodigoArticulo"
DataGridView1.Columns.Add(b)

Dim c As New DataGridViewComboBoxColumn
c.DataPropertyName = "Inact"
c.Name = "Inactivo"
c.DataSource = GetDatos()
c.DisplayMember = "valor"
c.ValueMember = "key"
DataGridView1.Columns.Add(c)

Me.DataGridView1.AutoGenerateColumns = False
Me.DataGridView1.DataSource = Nothing
Me.DataGridView1.DataSource = DataSet.Tables("Articulos")
End Sub

Private Function GetDatos() As DataTable

Dim dt As New DataTable
dt.Columns.Add("valor")
dt.Columns.Add("key")

Dim row As DataRow = dt.NewRow
row("valor") = "Si"
row("key") = "-1"
dt.Rows.Add(row)

row = dt.NewRow
row("valor") = "No"
row("key") = "0"
dt.Rows.Add(row)

Return dt

End Function

Puedes enlazar la columna que viene de la BD con la propiedad DataPropertyName como lo estás haciendo. O bien dejar esa columna suelta y ocultarla, pero realizar la asignación respectiva de forma manual, inmediatamente luego de cargar los datos a la grilla con un for each:

Código Vb.Net:

Ver originalDim Row as DataRow
    Me.DataGridView1.DataSource=DataSet.Tables("Articulos")
    for each Row in Me.DataGridView1.Rows
         Row.Cells ("Inact").Value =   Row.Cells ("Inactivo").Value  
    Next

jarogo · #5 (**permalink**) 10/12/2010, 02:18

Hola de nuevo Devilinside!

he estado revisando tu código pero sigo igual...

Lo que me dices arriba de modificar el nombre de la columna no cambia nada: al cargar el grid me aparece el 0/-1 en vez del Si/No.

Y lo de abajo, es un poco más lioso: tendría que tener una columna a mayores oculta y hacer el bucle posterior. El grid puede tener miles de registros y quizá varias columnas combo, con lo que tengo miedo que se ralentice demasiado.

La mejor opción sería la primera, usando el DataPropertyName, pero no me va bien...

¿Se te ocurre algo? Gracias igualmente por el interés!!!

SDEK · #6 (**permalink**) 10/12/2010, 12:39

El problema es que estas asignado al valueMember el campo "Key" de tu tabla.

Código VB:

Ver originalDim c As New DataGridViewComboBoxColumn
        c.DataPropertyName = "Inactivo"
        c.Name = "Inactivo"
        c.DataSource = GetDatos()
        c.DisplayMember = "valor"
        c.ValueMember = "key"
        DataGridView1.Columns.Add(c)

el valor de "key", como muestra este fragmento de tu codigo, tiene el valor 0:

Código VB:

Ver originalrow = dt.NewRow
        row("valor") = "No"
        row("key") = "0"
        dt.Rows.Add(row)

jarogo · #7 (**permalink**) 13/12/2010, 02:14

Cita:

Iniciado por SDEK

El problema es que estas asignado al valueMember el campo "Key" de tu tabla.

el valor de "key", como muestra este fragmento de tu codigo, tiene el valor 0:

No creo que ese sea el error... Para eso son las propiedades "DisplayMember" y "ValueMember": display es lo que mostrará y value lo que guardará en base de datos. Y en el display tengo el Si/No.

Gracias igualmente!

devilinside · #8 (**permalink**) 14/12/2010, 11:25

Hola Jarogo, disculpa por no responder antes. Bueno esta vez sí me detuve a revisar y probar el código (aunq muy rápidamente). Hice pruebas y te dejo el código que funciona sin errores. Tú lo acomodas de acuerdo a tu necesidad.

Código Vb.Net:

Ver originalPrivate Function DevuelveDatos() As DataTable
 
        Dim dt As New DataTable
        dt.Columns.Add("CodigoEmpresa")
        dt.Columns.Add("CodigoArticulo")
        dt.Columns.Add("Inact")
 
 
        Dim row As DataRow = dt.NewRow
        row("CodigoEmpresa") = "1"
        row("CodigoArticulo") = "1"
        row("Inact") = "-1"
        dt.Rows.Add(row)
 
        row = dt.NewRow
        row("CodigoEmpresa") = "2"
        row("CodigoArticulo") = "2"
        row("Inact") = "0"
        dt.Rows.Add(row)
 
        row = dt.NewRow
        row("CodigoEmpresa") = "3"
        row("CodigoArticulo") = "2"
        row("Inact") = "-1"
        dt.Rows.Add(row)
 
        row = dt.NewRow
        row("CodigoEmpresa") = "4"
        row("CodigoArticulo") = "2"
        row("Inact") = "0"
        dt.Rows.Add(row)
 
        row = dt.NewRow
        row("CodigoEmpresa") = "5"
        row("CodigoArticulo") = "4"
        row("Inact") = "0"
        dt.Rows.Add(row)
 
 
        Return dt
 
    End Function
 
    Private Function GetDatos() As DataTable
 
        Dim dt As New DataTable
        dt.Columns.Add("valor")
        dt.Columns.Add("key")
 
        Dim row As DataRow = dt.NewRow
        row("valor") = "Si"
        row("key") = "-1"
        dt.Rows.Add(row)
 
        row = dt.NewRow
        row("valor") = "No"
        row("key") = "0"
        dt.Rows.Add(row)
 
        Return dt
 
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.DataGridView1.DataSource = DevuelveDatos()
 
        Dim d As New DataGridViewComboBoxColumn
        d.DataSource = GetDatos()
        d.Name = "Inactivo"
        d.DisplayMember = "valor"
        d.ValueMember = "key"
        d.DataPropertyName = "Inact"
        DataGridView1.Columns.Add(d)
 
        'Esta columna devería ocultarse automáticamente, pero curiosamente no lo hace, así que lo hice manualmente XD. Luego reviso.
        Me.DataGridView1.Columns("Inact").Visible = False 
 
    End Sub

Espero haberte ayudado.
Saludos.

jarogo · #9 (**permalink**) 16/12/2010, 05:14

Gracias de nuevo por tu interés y tu tiempo.

He copiado tu código en una nueva aplicación y a priori hace lo que necesito.

Voy a adaptarlo ahora a mi proyecto, a ver que tal va.

devilinside · #10 (**permalink**) 16/12/2010, 08:52

Bien (y)!!