DataGridView

[LEO-NEO]

A ver si alguien se copa para mostrar como se carga un DataGridView (sin base de dato)... o sea a mano...

es para hacer el ejercicio 2 de la guía....

probé de varias formas... pero no me sale... una pista... por favor

[Severino]

Si yo tambien habia probadod e suarla, no sabia con que propiedad se le daba el valor al campo de la grilla. Se que cad vez q queres agbregar una columna o fila tenes que hacer una instancia nueva, peor no se como poner le valor.

[Severino]

ahi logre usarla, esta piola, le mande corolinche a full jaja. te paso el codigo, los controles del form y eso es facil armas un datagridview y una clase para probarlo, bah yo hice eso. Esta muy bueno, hice que una de las celdas sea un boton los campos.

Código: (vbnet) [Seleccionar]

    Private ctecolCod As Integer = 0
    Private ctecolNombre As Integer = 1
    Private ctecolRaza As Integer = 2
    Private ctecolDuenio As Integer = 3
    Private ctecolHC As Integer = 4
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Perro As New Perros()
        Dim ListaPerros As List(Of Perros)
        ListaPerros = Perro.GetPerros()
        Dim row As Integer
        GrillaPerros.Rows.Add(ListaPerros.Count)
        For Each Perro In ListaPerros
            GrillaPerros.Item(ctecolCod, row).Value = Perro.Cod
            GrillaPerros.Item(ctecolNombre, row).Value = Perro.Nombre
            GrillaPerros.Item(ctecolRaza, row).Value = Perro.Raza
            GrillaPerros.Item(ctecolDuenio, row).Value = Perro.Duenio.Nombre & Perro.Duenio.Apellido
            GrillaPerros.Item(ctecolHC, row).Value = Perro.HC.UltimaVisita
            row = row + 1
        Next
        FormateoGrilla()
    End Sub
    Private Sub FormateoGrilla()
        GrillaPerros.Columns.Item(ctecolCod).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
        GrillaPerros.Columns.Item(ctecolCod).DefaultCellStyle.BackColor = Color.GreenYellow
        GrillaPerros.Columns.Item(ctecolNombre).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
        GrillaPerros.Columns.Item(ctecolNombre).DefaultCellStyle.BackColor = Color.GreenYellow
        GrillaPerros.Columns.Item(ctecolRaza).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
        GrillaPerros.Columns.Item(ctecolRaza).DefaultCellStyle.BackColor = Color.GreenYellow
        GrillaPerros.Columns.Item(ctecolDuenio).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
        GrillaPerros.Columns.Item(ctecolDuenio).DefaultCellStyle.ForeColor = Color.Blue
        GrillaPerros.Columns.Item(ctecolDuenio).DefaultCellStyle.BackColor = Color.Gray
        GrillaPerros.Columns.Item(ctecolHC).AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
        GrillaPerros.Columns.Item(ctecolHC).DefaultCellStyle.ForeColor = Color.Blue
        GrillaPerros.Columns.Item(ctecolHC).DefaultCellStyle.BackColor = Color.Gray
        GrillaPerros.Refresh()
    End Sub
fijate yo en las grillas puse constantes, pero va numeros de parametros

[LEO-NEO]

Muchas gracias.. ya está

[Pac-man]

Gracias! Ta bueno, lo unico que te quiero pedir ahora es la clase perros, así lo hago andar.

[Severino]

ponete perros, dueño y HC sino no funca. La onda seria que cuando tocas en el boton del dueño te lleve a un frmdueño y te muestre los datos del mismo, pero se me rompio el monitor en casa y no lo pude seguir 

Código: (vbnet) [Seleccionar]

Public Class Perros
    Public Nombre As String
    Public Cod As Long
    Public Raza As String
    Public Duenio As Duenio
    Public HC As HC

    Public Function GetPerros() As List(Of Perros)
        Dim listaperros As New List(Of Perros)
        Dim i As Integer
        For i = 0 To 5
            Dim Perrito As New Perros()
            Perrito.Cod = i
            Perrito.Nombre = i
            Perrito.Raza = i
            Dim duenio As New Duenio()
            duenio.Apellido = i
            duenio.CodDueño = i
            duenio.Direccion = i
            duenio.Nombre = i
            Perrito.Duenio = duenio
            Dim HC As New HC()
            HC.PrimerVisita = Date.Today
            HC.UltimaVisita = Date.Today
            Perrito.HC = HC
            listaperros.Add(Perrito)
        Next
        Return listaperros
    End Function
End Class

Public Class HC
    Public UltimaVisita As Date
    Public PrimerVisita As Date
End Class

Public Class Duenio
    Public CodDueño As Long
    Public Nombre As String
    Public Apellido As String

    Public Direccion As String
End Class


[Severino]

Ahi va el ejercicio 2 de la guía con el datagridview 

[archivo adjunto borrado por el administrador]

[Pac-man]

Espectacular!

[Severino]

tankiu

[Pac-man]

Código: (vbnet) [Seleccionar]

Private Sub initgrilla()
        grdProductos.Columns.Add("Menu", "Menu") ' Primer Columna *1
        grdProductos.Columns.Add("Precio", "Precio") ' Segunda Columna *2
        grdProductos.Rows.Add(7) ' Sietes Filas
        grdProductos.Columns(ctecolPrecio).Name = "Precio" <----- Esta si la quitas funciona igual. *
        grdProductos.Item(ctecolNombre, 0).Value = "Hamburguesa"
        grdProductos.Item(ctecolPrecio, 0).Value = 2.5
        grdProductos.Item(ctecolNombre, 1).Value = "Gaseosa"
        grdProductos.Item(ctecolPrecio, 1).Value = 3
        grdProductos.Item(ctecolNombre, 2).Value = "Ensalada"
        grdProductos.Item(ctecolPrecio, 2).Value = 1.5
        grdProductos.Item(ctecolNombre, 3).Value = "Salchichas"
        grdProductos.Item(ctecolPrecio, 3).Value = 2
        grdProductos.Item(ctecolNombre, 4).Value = "Refresco"
        grdProductos.Item(ctecolPrecio, 4).Value = 1
        grdProductos.Item(ctecolNombre, 5).Value = "Birra"
        grdProductos.Item(ctecolPrecio, 5).Value = 4
        grdProductos.Item(ctecolNombre, 6).Value = "Sopa"
        grdProductos.Item(ctecolPrecio, 6).Value = 1.5
        grdProductos.Item(ctecolNombre, 7).Value = "Postre"
        grdProductos.Item(ctecolPrecio, 7).Value = 1.5
End Sub
* Tiene alguna funcionalidad especial

*1 y *2 Si quito el primer argumento de cada uno, obviamente no anda, pero si dejo un string vacio, no ocurre nada en particular en cuanto a la estetica, estos dos argumentos para que estan, sabes ?, que son para utilizarlos mas a nivel codigo. (Nombre por el que se hara referencia a la columna)

Gracias por el ejercicio resuelto, en sí es medio dolobu, pero el implementar el grid, habia que averiguar un poco! Se agradece. Saludos!

[Infero]

y con base de datos como seria??

[Severino]

y con base de datos como seria??

Fijate el tema "Sistema de gestion(...)" que ahi el proyecto quie colgo Pac man tiene datagrid con base de datos access, sino me equivoco usa el binding source que le decis tal objeto a tal campo de la base y te olvidas del resto!

[Infero]

pero sql seria mas interesante... me pa que lajavi lo estaba haciendo el otro dia