Ver Mensaje Individual
  #4 (permalink)  
Antiguo 20/05/2009, 15:36
mascodigo
 
Fecha de Ingreso: noviembre-2008
Ubicación: Lima - PERU
Mensajes: 5
Antigüedad: 15 años, 6 meses
Puntos: 0
Respuesta: Como limpio el contenido de un datagrip

Hola que tal, pues respondiendo a tu pregunta... prueba este código:

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
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

creo que con esto basta y sobra, espero te sirva,

salu2,

Johnny B. Quispe Flores