DATAGRIDVIEW archivos

Hola a todos qué tal aquí os dejo en este post cómo exportar DataGridView a Excel. Ya veréis qué es muy fácil y muy sencillo no tiene ninguna complicación ,así que os dejo todo el código a continuación.

No os olvidéis de añadir la referencia de interop. Excel para que esto funcione.

Si no lo encontráis dentro de las referencias de visual studio.NET , en Google seguramente encontrareis donde la podéis encontrar

Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

Dim NCol As Integer = ElGrid.ColumnCount
Dim NRow As Integer = ElGrid.RowCount
For i As Integer = 1 To NCol
exHoja.Cells.Item(1, i) = ElGrid.Columns(i – 1).Name.ToString
‘exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow – 1
For Col As Integer = 0 To NCol – 1
exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
Next
Next

exHoja.Rows.Item(1).Font.Bold = 1
exHoja.Rows.Item(1).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

Espero que os sirva un saludo a todos

FILTRAR UN DATAGRIDVIEW CON DATAVIEW

Este es un Ejemplo de filtrado de un GridView usando un Dataview.

Se ha utilizado para este ejemplo un GridView y un TextBox.

Primero los datos y el codigo para filtrar,

Dim dv As New DataView
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim dt As New DataTable
       dt.TableName = "Nombres"
       dt.Columns.Add("ID")
       dt.Columns.Add("Nombre")
       Dim dr As DataRow = dt.NewRow
       dr("ID") = 1
       dr("Nombre") = "PACO"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 2
       dr("Nombre") = "JUAN"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 3
       dr("Nombre") = "PEDRO"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("ID") = 4
       dr("Nombre") = "RICARDO"
       dt.Rows.Add(dr)
       dv.Table = dt
       Me.DataGridView1.DataSource = dv<span class="cf3 fs19 ff2">  
 </span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

Dim dv As New DataView

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim dt As New DataTable

dt.TableName = "Nombres"

dt.Columns.Add("ID")

dt.Columns.Add("Nombre")

Dim dr As DataRow = dt.NewRow

dr("ID") = 1

dr("Nombre") = "PACO"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 2

dr("Nombre") = "JUAN"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 3

dr("Nombre") = "PEDRO"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("ID") = 4

dr("Nombre") = "RICARDO"

dt.Rows.Add(dr)

dv.Table = dt

Me.DataGridView1.DataSource = dv

End Sub

<span class="cf3 fs19 ff2">    </span><span class="cf4 fs19 ff2">Private</span> <span class="cf4 fs19 ff2">Sub</span><span class="cf3 fs19 ff2"> TextBox1_TextChanged(sender </span><span class="cf4 fs19 ff2">As</span> <span class="cf4 fs19 ff2">Object</span><span class="cf3 fs19 ff2">, e </span><span class="cf4 fs19 ff2">As</span> <span class="cf5 fs19 ff2">EventArgs</span><span class="cf3 fs19 ff2">) </span><span class="cf4 fs19 ff2">Handles</span><span class="cf3 fs19 ff2"> TextBox1.TextChanged
        dv.RowFilter = </span><span class="cf6 fs19 ff2">"Nombre like'%"</span><span class="cf3 fs19 ff2"> & </span><span class="cf4 fs19 ff2">Me</span><span class="cf3 fs19 ff2">.TextBox1.Text & </span><span class="cf6 fs19 ff2">"%'"</span><span class="cf3 fs19 ff2">
    </span><span class="cf4 fs19 ff2">End</span> <span class="cf4 fs19 ff2">Sub</span>

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

dv.RowFilter = "Nombre like'%" & Me.TextBox1.Text & "%'"

End Sub

Hasta aqui el ejemplo , es corto pero efectivo . Un saludo a todos.