Hola gente,
una pregunta... como limpio un datagrip?
o sea ... lo vació?
es que consigo hacerlo :(
Alguien me puede ayudar?
| |||
Respuesta: Como limpio el contenido de un datagrip Buenas, Si el datagrid esta lleno será porque esta enlazado a un origen de datos resultado de una consulta que ha devuleto una o más filas; una solución es vincularlo a una consulta que no devuelva nada SELECT * FROM TABLA WHERE 1=2 Sinceramente ahora no recuerdo si tiene un método clear(), los datatable si , pero los grids no recuerdo, en cualquier caso con lo otro te vale Saludos
__________________ http://literaturaprogramada.blogspot.com.es/ literaturapogramada.blogspot - Reflexiones mundanas sobre la programación |
| |||
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 |