Menampilkan Data Dari Datagridview ke TextBox dengan Visual Studio

Hi Sobat Campus VB, seperti janji saya kemarin bahwa saya akan memberikan cara bagaimana menampilkan data dari Datagridview ke TextBox.

OK langsung saja ya, bagaimana sih cara menampilkan data dari Datagridview ke TextBox dengan Visual Studio. Pertama buat tampilan program seperti berikut ini :

Masukkan code program berikut ini :

    Private Function DTSource() As DataTable
        Dim dt As New DataTable
        dt.Columns.Add("Nama Depan")
        dt.Columns.Add("Nama Belakang")
        dt.Columns.Add("Alamat")
        dt.Columns.Add("Jurusan")

        dt.Rows.Add("Abdul", "Joni", "Jakarta", "Multimedia")
        dt.Rows.Add("Budi", "Sirojud", "Bekasi", "Jaringan")
        dt.Rows.Add("Cinta", "Dewina", "Bogor", "Programmer")
        dt.Rows.Add("Bagus", "Sadewo", "Depok", "Teknik Elektro")
        dt.Rows.Add("Feri", "Irawan", "Tangerang", "Sipil")
        dt.Rows.Add("Vina", "Anjarsari", "Jakarta", "Software Enginer")

        Return dt

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DataGridView1.DataSource = Nothing
        DataGridView1.DataSource = DTSource()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        With DataGridView1
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .ReadOnly = True

            .SelectionMode = DataGridViewSelectionMode.FullRowSelect

            For Each dRow As DataGridViewRow In .Rows
                If dRow.Index Mod 2 = 0 Then
                    dRow.DefaultCellStyle.BackColor = Color.Azure
                Else
                    dRow.DefaultCellStyle.BackColor = Color.Lavender
                End If
            Next

        End With
    End Sub


    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

        TextBox1.Text = DataGridView1.SelectedRows.Item(0).Cells(0).Value
        TextBox2.Text = DataGridView1.SelectedRows.Item(0).Cells(1).Value
        TextBox3.Text = DataGridView1.SelectedRows.Item(0).Cells(2).Value
        TextBox4.Text = DataGridView1.SelectedRows.Item(0).Cells(3).Value

    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        Button1.PerformClick()
        Button3.PerformClick()
    End Sub 

Dan jika sudah silakan jalankan programnya dengan cara Click tombol Run atau tekan F5, hasinya akan seperti berikut ini :

Selamat mencoba ya...........