Doble klik datagrid dan ganti prosedur dari Clik ke DBlClik
Sehingga code menjadi seperti ini
Masukan kode berikut
Private Sub dgmahasiswa_DblClick()
txtnim.Text = dgmahasiswa.Columns(0)
txtnama.Text = dgmahasiswa.Columns(1)
tgllahir.Value = dgmahasiswa.Columns(2)
cmbjenkel.Text = dgmahasiswa.Columns(3)
cmbagama.Text = dgmahasiswa.Columns(4)
txtalamat.Text = dgmahasiswa.Columns(5)
txttelp.Text = dgmahasiswa.Columns(6)
cmbstudy.Text = dgmahasiswa.Columns(7)
tglmasuk.Value = dgmahasiswa.Columns(8)
End Sub
Klik RUN / F5 untuk mengecek
Gambar jika datagrid di klik 2x maka textbox akan terisi
Tidak ada komentar:
Posting Komentar