Limpiar una DataGrid
[Usando un DataTable]

Fecha: 30/Abr/2005 (28/04/2005)
Autor: Arbis Percy Reyes Paredes - Perxindrome withoutlimits2983@hotmail.com

 



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.. withoutlimits2983@hotmail.com
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 Sub
En primer lugar, llenamos la datagrid.
DataGrid llenada con datos

 

...luego limpiamos la datagrid de todo contenido.

DataGrid vacía de datos
  
			

No olvides de darme tu voto en PanoramaBox, ya que es una manera de animarme a seguir compartiendo contigo lo que voy aprendiendo. Gracias.


ir al índice