Neste artigo eu vou mostrar como podemos usar os recursos do controle DataGridView para selecionar e exibir registros em 4 cenários distintos. Em cada um deles vamos aprender mais um pouco sobre as possibilidades que temos à nossa disposição para trabalhar com o DataGridView com  VB .NET.

Public Class frmMenu

    Private Sub btnEx1_Click(sender As Object, e As EventArgs) Handles btnEx1.Click
        My.Forms.Form1.Show()
    End Sub

    Private Sub btnEx2_Click(sender As Object, e As EventArgs) Handles btnEx2.Click
        My.Forms.Form2.Show()
    End Sub

    Private Sub btnEx3_Click(sender As Object, e As EventArgs) Handles btnEx3.Click
        My.Forms.Form3.Show()
    End Sub

    Private Sub btnEx4_Click(sender As Object, e As EventArgs) Handles btnEx4.Click
        My.Forms.Form4.Show()
    End Sub
End Class

Public Class Form1
    Dim dt As New DataTable

    Private Sub btnCarregarDados_Click(sender As Object, e As EventArgs) Handles btnCarregarDados.Click
        Try
            dt = GeraTabela()
            DataGridView1.DataSource = dt.DefaultView
            Dim cma As CurrencyManager = DirectCast(BindingContext(dt.DefaultView), CurrencyManager)
            'define um evento chamado mudandoDeLinha
            AddHandler cma.CurrentChanged, AddressOf mudandoDeLinha
            mudandoDeLinha(Me, Nothing)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Public Sub mudandoDeLinha(ByVal sender As Object, ByVal e As EventArgs)
        Try
            Dim dv1 = DirectCast(DataGridView1.DataSource, DataView)
            Dim dv2 As New DataView(dv1.Table)
            Dim cma = DirectCast(BindingContext(dv1), CurrencyManager)
            'define o filtro pelo nome e a seleção do nome no primeiro datagridview
            dv2.RowFilter = "Nome = '" & dv1(cma.Position)("Nome").ToString & "'"
            'atribui o valor ao segundo datagridview
            DataGridView2.DataSource = dv2
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    Private Function GeraTabela() As DataTable
        Try
            'define um datatable com 3 colunas : nome, origem e email e inclui dados
            dt.Columns.Add("Nome")
            dt.Columns.Add("Origem")
            dt.Columns.Add("Email")
            dt.LoadDataRow(New Object() {"Corina", "Holanda", "corina@net.com.br"}, True)
            dt.LoadDataRow(New Object() {"Ken", "Australia", "ken@net.com.br"}, True)
            dt.LoadDataRow(New Object() {"Paul", "USA", "paul@net.com.br"}, True)
            dt.LoadDataRow(New Object() {"Herfried", "Austria", "herfried@net.com"}, True)
            dt.LoadDataRow(New Object() {"Fritz", "Alemanha", "fritz@net.com"}, True)
            dt.LoadDataRow(New Object() {"Manuel", "Portugal", "manuel@net.com"}, True)
            dt.LoadDataRow(New Object() {"Mike", "Inglattera", "mike@net.com"}, True)
            Return dt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class

Imports System.Data.OleDb

Public Class Form2

    Private Sub btnCarregar_Click(sender As Object, e As EventArgs) Handles btnCarregar.Click
        Dim dt As New DataTable
        'define o comando SQL e a string de conexão com o Northwind.mdb
        Using da As New OleDbDataAdapter("Select * from Products", "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = c:\dados\Northwind.mdb;")
            Try
                'preenche o datatable
                da.Fill(dt)
            Catch ex As Exception
                MessageBox.Show(ex.ToString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            'atribui o datatable
            Dim dv As New DataView(dt)
            ComboBox1.DataSource = dv
            ComboBox1.ValueMember = "ProductID"
            ComboBox1.DisplayMember = "ProductName"
            DataGridView1.DataSource = dt.DefaultView
        End Using
        'cria um delegado para filtrar por codigo de produto 
        AddHandler ComboBox1.SelectedIndexChanged, AddressOf ComboBox1_Change
        dt.DefaultView.RowFilter = "ProductID = " & CStr(ComboBox1.SelectedValue)
    End Sub
    Private Sub ComboBox1_Change(ByVal sender As Object, ByVal e As System.EventArgs)
        DirectCast(DataGridView1.DataSource, DataView).RowFilter = "ProductID = " & CStr(ComboBox1.SelectedValue)
    End Sub
End Class

Public Class Form3
    Dim dt As New DataTable
    Private Sub btnCarregar_Click(sender As Object, e As EventArgs) Handles btnCarregar.Click
        Try
            dt = GeraTabela()
            DataGridView1.DataSource = dt.DefaultView
            'inclui uma coluna extra
            dt.Columns.Add("Marcar", GetType(System.Boolean))
            For Each dr As DataRow In dt.Rows
                dr("Marcar") = False
            Next
            'faz a seleção da coluna 
            Dim dv As New DataView(dt)
            'define o filtro
            dv.RowFilter = "Marcar = true"
            DataGridView2.DataSource = dv
            'esconde a coluna 'Marcar'
            DataGridView2.Columns("Marcar").Visible = False
            'impede o usuário de incluir linhas
            DataGridView2.AllowUserToAddRows = False
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub DataGridView1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGridView1.Paint
        Try
            'Comita as alterações
            DataGridView1.CommitEdit(DataGridViewDataErrorContexts.Commit) 'Not for DataGrid
            'Envia as mudanças para o datasource 
            BindingContext(DirectCast(DataGridView1.DataSource, DataView)).EndCurrentEdit()
        Catch ex As Exception

        End Try
    End Sub

    Private Function GeraTabela() As DataTable
        Try
            'define um datatable com 3 colunas : nome, origem e email e inclui dados
            dt.Columns.Add("Nome")
            dt.Columns.Add("Origem")
            dt.Columns.Add("Email")
            dt.LoadDataRow(New Object() {"Corina", "Holanda", "corina@net.com.br"}, True)
            dt.LoadDataRow(New Object() {"Ken", "Australia", "ken@net.com.br"}, True)
            dt.LoadDataRow(New Object() {"Paul", "USA", "paul@net.com.br"}, True)
            dt.LoadDataRow(New Object() {"Herfried", "Austria", "herfried@net.com"}, True)
            dt.LoadDataRow(New Object() {"Fritz", "Alemanha", "fritz@net.com"}, True)
            dt.LoadDataRow(New Object() {"Manuel", "Portugal", "manuel@net.com"}, True)
            dt.LoadDataRow(New Object() {"Mike", "Inglattera", "mike@net.com"}, True)
            Return dt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class

Public Class Form4

    Private Sub btnCarregar_Click(sender As Object, e As EventArgs) Handles btnCarregar.Click

        Dim dt As New NorthWindDataSet.CustomersDataTable
        Using da As New NorthWindDataSetTableAdapters.CustomersTableAdapter
            da.Fill(dt)
        End Using
        DataGridView1.DataSource = dt.DefaultView
    End Sub

    Private Sub btnLocalizar_Click(sender As Object, e As EventArgs) Handles btnLocalizar.Click
        Dim cm = CType(Me.BindingContext(DataGridView1.DataSource), CurrencyManager)
        Dim dv = CType(DataGridView1.DataSource, DataView)
        dv.Sort = "CustomerID"
        Dim x As Integer = dv.Find(txtCustomerID.Text)
        DataGridView1.Rows(x).Selected = True
    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtCustomerID.KeyPress
        If Not Char.IsLetter(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
        End If
    End Sub
End Class

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

•  Curso - Gerando Relatórios com o ReportViewer no VS 2013 - Vídeo Aulas