Limpiar una DataGrid Fecha: 30/Abr/2005 (28/04/2005)
|
Muchos de ustedes amigos lectores ya están acostumbrándose a revisar mis artículos, las cuales son algo amplias y entretenidas, pero esta vez tan sólo quiero compartirles este código. Se trata de cómo limpiar una grilla. No quiero ofenderte con esto, tal vez está pasando en este momento por tu cerebronet, la idea de que todo esto es muy fácil para ti, y que es una pérdida de tiempo o algo así. La verdad es que debemos pensar en aquellas personas novatas que necesitan ayuda, pues pensando en ellas, comparto este código sencillo. Sinceramente, la idea de publicar esto no me nació, es más, lo hice porque un amigo lector me escribió solicitándome el código para limpiar una datagrid.Bueno, la idea para limpiar la datagrid, es la siguiente: Una vez llenada la datagrid con los datos deseados, se procede a limpiarla de todo contenido haciendo uso de una DataTable, la cual lleno de cadenas vacías y la enlazo a la datagrid. El resultado será una datagrid "vacía", aunque esto no es de todo cierto ya que la datagrid estará llena de cadenas vacías.
Espero que te sirva, y si tienes una mejor manera de hacer lo mismo que hice, pues escríbeme al correo. Recuerda, debemos pensar en los demás y nadie lo sabe todo.
A continuación sigue código en Visual Basic NET:
Public i, j As Integer Public Sub OperacioDataGrid(ByVal Modo As String) 'inicializamos valores.. i = 0 : j = 0 'creamos un objeto tabla... Dim Tabla As New DataTable For i = 0 To 8 'creamos las columnas y las insertamos en la tabla... Tabla.Columns.Add(New DataColumn("Column " & i)) Next 'creamos las filas de la tabla llenándolas con datos... For i = 0 To 10 Dim fila As DataRow 'creamos una fila... fila = Tabla.NewRow() For j = 0 To 8 'evaluamos el modo de operacion que se hará en la datagrid If Modo Is Nothing Then 'limpiamos... fila(j) = "" ElseIf Modo = "llenar" Then 'llenamos fila(j) = "Celda (" & i & ", " & j & ")" End If Next 'agregamos la fila a la coleccion de filas de la tabla Tabla.Rows.Add(fila) Next 'tamaño por defecto de la datagrid Me.DataGrid1.Size = New Size(750, 300) 'enlazamos nuestra datagrid con la tabla llena de datos.... Me.DataGrid1.DataSource = Tabla '...eso es todo... que fácil verdad..??? Nos vemos.. [email protected] End Sub Private Sub BtnLlenar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLlenar.Click 'llenar datos... Me.OperacioDataGrid("llenar") End Sub Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpiar.Click 'para liberar datos o recursos Me.DataGrid1.DataSource = Nothing 'para limpiar Me.OperacioDataGrid(Nothing) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'No te olvides de promocionar mis artículos... 'sólo eso pido de recompensa...claro sólo no te olvides de votar por mi.. MsgBox(" Percy Reyes®" + vbCrLf + _ " Master of deception .net®" + vbCrLf + _ " Visual Basic .NET®" + vbCrLf + _ "Derechos Reservados® - Perú") End SubEn primer lugar, llenamos la datagrid.
...luego limpiamos la datagrid de todo contenido.
No olvides de darme tu voto en PanoramaBox, ya que es una manera de animarme a seguir compartiendo contigo lo que voy aprendiendo. Gracias.