Menggunakan DataGridView pada Visual Basic 2008 - DataGridView adalah sebuah control di VB.Net yang digunakan untuk menampilkan data dalam bentuk grid. Control ini dirancang untuk menjadi solusi untuk menampilkan data tabular dengan Windows Form.
Menambahkan Kolom
1. Melauli GUI
- Pastikan control DataGridView sudah diletakan pada Form
- Aktifkan DataGridView1 kemudian pada bagian Properties pilih Coloumns, kemudian akan muncul jendela Edit Columns.
- Klik tombol Add.. untuk membuat kolom baru, dan akan muncul jendela Add Column
- Selanjutnya ganti Name sesuai dengan kolom yang akan dibuat, misal Kode_Barang, dan Header text isi dengan teks kolom yang akan dibuat, misal Kode Barang.
- Kemudian klik Add, lakukan cara yang sama jika kolom lebih dari satu. Jika telah selesai klik tombol Cancel.
- Klik tombol OK untuk menyelesaikan nya.
2. Melalui Kode Program
- Berikut kode program untuk menambah kolom pada DataGridView
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
With DataGridView1
.Columns.Add("Kode_Barang", "Kode Barang")
.Columns.Add("Nama_Barang", "Nama Barang")
End With
End Sub
- Menambah baris atau data
Berikut kode program untuk menambah baris atau data pada DataGridView
Private Sub BtnTambahData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambahData.Click
With DataGridView1
.Rows.Insert(.NewRowIndex, "AP098DG", "Jas Pria")
.Rows.Insert(.NewRowIndex, "AP076DF", "Blazer Wanita")
End With
End Sub
- Menghapus baris atau data yang dipilih
Berikut kode program untuk menghapus baris atau data yang dipilih
Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
If DataGridView1.CurrentRow.Index <> DataGridView1.NewRowIndex Then
DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
End If
End Sub
- Menghapus semua baris atau data
Berikut kode program untuk menghapus keseluruhan baris atau data pada DataGridView
Private Sub BtnHpsSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsSemua.Click
DataGridView1.Rows.Clear()
End Sub
EmoticonEmoticon