Datagrid y arrayList

Muy sencillo:

ElDataGrid.DataSource = ElArrayList

Saludos:

Jesús López



"Jarsinio" escribió en el mensaje
news:
Hola,
Tengo la siguiente duda.
Estoy armando una aplicación en donde a capa de presentación le llega
un ArrayList. En este array list hay instancias de una clase,. Lo que
busco hacer es llenar un datagrid con esos objetos?

Como puedo hacer para llenar el datagrid?

Saludos

Intente realizar eso sin emgarbo no me esta funcionando.

Sabes cual puede ser mi problemas? Hay que definir algo mas?



mi codigo

Dim proveedores As New ArrayList

Dim item As New pepe(1, "jorge")
Dim item2 As New pepe(2, "Raul")
proveedores.Add(item)
proveedores.Add(item2)
Me.grilla.DataSource = proveedores


Class pepe
Dim mcodigo As Integer
Dim mnombre As String

Public Sub New(ByVal codigo As Integer, ByVal nombre As String)
Me.mcodigo = codigo
Me.mnombre = nombre
End Sub


Public Function Codigo()
Return Me.mcodigo
End Function

Public Function Nombre()
Return Me.mnombre
End Function


End Class

Sólo que la clase Pepe tiene que tener propiedades. El DataGrid sólo
mostrará las propiedades públicas de la clase, no muestra campos ni
propiedades privadas ni valores devueltos por métodos.



La clase pepe debería ser así:

Public Class pepe
Private mCodigo As Integer
Private mNombre As String

Public Sub New(ByVal codigo As Integer, ByVal nombre As String)
Me.mCodigo = codigo
Me.mNombre = nombre
End Sub


Public Property Codigo() As Integer
Get
Return Me.mCodigo
End Get
Set(ByVal value As Integer)
Me.mCodigo = value
End Set
End Property

Public Property Nombre() As String
Get
Return Me.mNombre
End Get
Set(ByVal value As String)
Me.mNombre = value
End Set
End Property


End Class


Saludos:

Jesús López



"Jarsinio" escribió en el mensaje
news:

Intente realizar eso sin emgarbo no me esta funcionando.

Sabes cual puede ser mi problemas? Hay que definir algo mas?



mi codigo

Dim proveedores As New ArrayList

Dim item As New pepe(1, "jorge")
Dim item2 As New pepe(2, "Raul")
proveedores.Add(item)
proveedores.Add(item2)
Me.grilla.DataSource = proveedores


Class pepe
Dim mcodigo As Integer
Dim mnombre As String

Public Sub New(ByVal codigo As Integer, ByVal nombre As String)
Me.mcodigo = codigo
Me.mnombre = nombre
End Sub


Public Function Codigo()
Return Me.mcodigo
End Function

Public Function Nombre()
Return Me.mnombre
End Function


End Class