In this article we will know how to move focus from one row to another row in a datagrid. Here we add one datagrid and five buttons controls respectively to the form. First in the Form1_Load event data will be loaded into the datagrid and with the help of four buttons we will navigate the focus from one row to another.

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")

Dim con As OleDbConnection = New OleDbConnection(ConnectionString)

Dim com As OleDbCommand

Dim oledbda As OleDbDataAdapter

Dim ds As DataSet

Dim dt As DataTable

Dim str As String

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

Try

con.Open()

str = "select * from student"

com = New OleDbCommand(str, con)

oledbda = New OleDbDataAdapter(com)

ds = New DataSet

oledbda.Fill(ds, "student")

con.Close()

dt = ds.Tables("student")

DataGrid1.ReadOnly = True

DataGrid1.DataSource = ds

DataGrid1.DataMember = "student"

btnenadisi(True)

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Sub btnfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfirst.Click

DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

DataGrid1.CurrentRowIndex = 0

DataGrid1.Select(DataGrid1.CurrentRowIndex)

btnenadisi(True)

End Sub

Private Sub btnprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprev.Click

DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

DataGrid1.CurrentRowIndex -= 1

DataGrid1.Select(DataGrid1.CurrentRowIndex)

btnenadisi(True)

End Sub

Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click

DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

DataGrid1.CurrentRowIndex += 1

DataGrid1.Select(DataGrid1.CurrentRowIndex)

btnenadisi(True)

End Sub

Private Sub btnlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlast.Click

DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)

DataGrid1.CurrentRowIndex = dt.Rows.Count - 1

DataGrid1.Select(DataGrid1.CurrentRowIndex)

btnenadisi(True)

End Sub

Private Sub btnenadisi(ByVal x As Boolean)

btnfirst.Enabled = x

btnprev.Enabled = x

btnnext.Enabled = x

btnlast.Enabled = x

btnclose.Enabled = x

End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click

Me.Close()

End Sub

End Class

Output

datagrid-in-VB.NET.gif

Thanks for reading