Hola a todos
En la página de SecondNug ya se encuentran disponibles los materiales (ejemplos de código fuente y presentaciones en PowerPoint) que se mostraron el día del evento dedicado a controles de cuadrícula de datos, y algunos más que por falta de tiempo no pudimos enseñar 😉
De igual forma, el evento grabado ya está listo para su descarga; mediante el siguiente enlace entraremos en una página en la que deberemos hacer clic en el logo del evento para acceder a la página de registro y posterior descarga. O también podemos usar esta otra dirección, que nos llevará directamente a la página de registro.
La grabación del evento está disponible en formato Live Meeting (de mejor calidad) y Windows Media.
Esperamos que os resulte interesante.
Un saludo.
Luismi
anonymous
Estoy tratando de agregar una fila al DataGridView a partir de unas cajas de Texto pero al darle DataSource esta me la reemplaza la anterior y no agrega la nueva. Este es el codigo…
Dim oInmxPuestoAgregados As New SvcPuestoVigilancia.PuestosdeVigilancia
Dim ListaAsigandos As New List(Of SvcPuestoVigilancia.PuestosdeVigilancia)
oInmxPuestoAgregados.IxpIdInmueble = CInt(Me.TxtCodigoInmueble.Text)
oInmxPuestoAgregados.IxpFechaInicio = CDate(Me.MtbFechaIniI.Text)
oInmxPuestoAgregados.IxpFechaFin = CDate(Me.MtbFechaFinI.Text)
oInmxPuestoAgregados.DireccionInmueble = oInmueble.InmDireccion
lInmueblesAgregados.Add(oInmxPuestoAgregados)
Me.DgvInmuebles.DataSource = lInmueblesAgregados
Agradeciria tu colaboración…
lmblanco
Hola Richard
Creo que existen dos problemas en este código que estás utilizando, los cuales impiden conseguir el comportamiento que necesitas. En primer lugar prueba a declarar la variable List(Of) con un ámbito a nivel de la clase del formulario; de esa forma, cada vez que añadas un nuevo objeto a la lista, se mantendrán los objetos que previamente habías añadido. Por otro lado, cuando asignes la lista a la propiedad DataGridView.DataSource, utiliza su método ToArray, para que la información a visualizar por el grid sea interpretada y mostrada correctamente por este control de rejilla. A continuación te adjunto un bloque de código como ejemplo:
‘————————————————–
Public Class PuestoVigilancia
Private mnIDInmueble As Integer
Private mdtFechaInicio As DateTime
Private mdtFechaFin As DateTime
Private msDireccionInmueble As String
Public Property IDInmueble() As Integer
Get
Return mnIDInmueble
End Get
Set(ByVal value As Integer)
mnIDInmueble = value
End Set
End Property
Public Property FechaInicio() As DateTime
Get
Return mdtFechaInicio
End Get
Set(ByVal value As DateTime)
mdtFechaInicio = value
End Set
End Property
Public Property FechaFin() As DateTime
Get
Return mdtFechaFin
End Get
Set(ByVal value As DateTime)
mdtFechaFin = value
End Set
End Property
Public Property DireccionInmueble() As String
Get
Return msDireccionInmueble
End Get
Set(ByVal value As String)
msDireccionInmueble = value
End Set
End Property
End Class
‘====================
Public Class Form1
Private lstPuestosVigilancia As List(Of PuestoVigilancia) = New List(Of PuestoVigilancia)
Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
Dim oPuestoVigilancia As PuestoVigilancia = New PuestoVigilancia()
oPuestoVigilancia.IDInmueble = CType(Me.txtIDInmueble.Text, Integer)
oPuestoVigilancia.FechaInicio = CType(Me.txtFechaInicio.Text, DateTime)
oPuestoVigilancia.FechaFin = CType(Me.txtFechaFin.Text, DateTime)
oPuestoVigilancia.DireccionInmueble = Me.txtDireccionInmueble.Text
lstPuestosVigilancia.Add(oPuestoVigilancia)
Me.DataGridView1.DataSource = lstPuestosVigilancia.ToArray()
End Sub
End Class
‘————————————————–
Espero que te sirva de ayuda.
Un saludo.
Luismi