Visual Basic.NET - Filtrar Datagridview

Function GridAExcel(ByVal ElGrid As DataGridView) As Boolean

	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

	Try

		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     '''aqui pone un nombre muy extendido...

		Next

		exApp.Application.Visible = True

												'''' aqui voy a poner una matriz con los grupos

		For Fila As Integer = 0 To NRow - 1

			For Col As Integer = 0 To NCol - 1

				If ElGrid.Rows(Fila).Cells(1).Value = "3º D" Then   'aqui INTENTO FILTRAR por GRUPO

					exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value

				End If

				Fila = Fila + 1                   ' aqui intento PASAR A LA SIGUIENTE FILA del DATAGRIDVIEW

			Next

		Next

		exHoja.Rows.Item(1).Font.Bold = 1

		exHoja.Rows.Item(1).HorizontalAlignment = 3

		exHoja.Columns.AutoFit()

		exHoja.Name = "3º D"

		exHoja = exLibro.Worksheets.Add()

		exHoja.Activate()

		exHoja.Name = "3º C"

		exHoja = Nothing

		exLibro = Nothing

		exApp = Nothing

	Catch ex As Exception

		MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")

		Return False

	End Try

	Return True

End Function

Imports System.Data.SqlClient

Imports System.ComponentModel

Public Class Form1

    Dim ds As New DataSet

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

        Dim connectionString As String = "Data Source=.;Initial Catalog=pubs;Integrated Security=True"

        Dim sql As String = "SELECT title_id,title,type,pub_id FROM Titles"

        Dim connection As New SqlConnection(connectionString)

        Dim dataadapter As New SqlDataAdapter(sql, connection)

        connection.Open()

        dataadapter.Fill(ds, "Titles_table")

        connection.Close()

        DataGridView1.DataSource = ds.Tables(0)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim dv As DataView

        dv = New DataView(ds.Tables(0), "type = 'business' ", "type Desc", DataViewRowState.CurrentRows)

        DataGridView1.DataSource = dv

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        DataGridView1.Sort(DataGridView1.Columns(1), ListSortDirection.Ascending)

    End Sub

End Class