BOTÕES DE NAVEGA?ÃO

AMORIM 07/03/2016 12:57:40
#458755

Olha Estou com este código para navegar através dos botões de Navegação
tudo bem funciona perfeito agora como faço para selecionar a linha inteira do
datagridview de conforme os registro vai passando.

Public BuscVendas As Integer
Dim dt As New DataTable
Dim posicao As Integer = 0
Dim conte As Integer = 0
Dim NumeroRegistro, ConteNumero As Integer
Dim id As Integer
Private Sub FrmGradeVendas_Load(sender As Object, e As EventArgs) Handles MyBase.Load
On Error Resume Next
CarregarTabela()
Selecionar_linhas()
End Sub
Private Sub MovimentarRegistro(ByVal e As eRegistro)
Select Case e
Case eRegistro.Primeiro
posicao = 0
Case eRegistro.Anterior
If posicao > 0 Then posicao -= 1
Case eRegistro.Proximo
If posicao < (dt.Rows.Count - 1) Then posicao += 1
Case eRegistro.Ultimo
posicao = dt.Rows.Count - 1
End Select
End Sub
Private Sub CarregarTabela()
Using con As OleDbConnection = GetConnection()
Try
con.Open()
Dim sql As String = [Ô][Ô]
sql = [Ô]Select * From tblCadVenda[Ô]
Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(cmd)
adapter.Fill(dt)
Catch ex As Exception
Finally
con.Close()
End Try
End Using
End Sub
Private Sub AtualizarTela()
On Error Resume Next
id = dt.Rows(posicao)([Ô]ControleVenda[Ô]).ToString()
NumeroRegistro = (posicao + 1).ToString()
ConteNumero = (dt.Rows.Count).ToString()
End Sub
Private Sub Selecionar_linhas()
Dim linha As Integer
For x = 0 To dgvLista.RowCount - 1
With dgvLista
linha = dgvLista.CurrentRow.Index
dgvLista.SelectionMode = DataGridViewSelectionMode.FullRowSelect
dgvLista.CurrentCell = dgvLista.Item(x, linha)
End With
Next
End Sub
Private Sub btnPrimeiro_Click(sender As Object, e As EventArgs) Handles btnPrimeiro.Click
MovimentarRegistro(eRegistro.Primeiro)
AtualizarTela()
Selecionar_linhas()
End Sub
Private Sub btnAnterior_Click(sender As Object, e As EventArgs) Handles btnAnterior.Click
MovimentarRegistro(eRegistro.Anterior)
AtualizarTela()
Selecionar_linhas()
End Sub
Private Sub btnProximo_Click(sender As Object, e As EventArgs) Handles btnProximo.Click
MovimentarRegistro(eRegistro.Proximo)
AtualizarTela()
Selecionar_linhas()
End Sub
Private Sub btnUltimo_Click(sender As Object, e As EventArgs) Handles btnUltimo.Click
MovimentarRegistro(eRegistro.Ultimo)
AtualizarTela()
Selecionar_linhas()
End Sub