VB.Net - DataGridView RowPostPaint

Pada artikel sebelumnya kita telah mencoba untuk merubah warna cell pada DataGridView dengan ketentuan nilai yang kita berikan. Untuk artikel kali ini, ane akan mencoba berbagi kepada pembaca bagaimana merubah warna Rows DataGridView berdasarkan nilai yang diberikan. Kali ini kita akan mencoba memberi warna Rows DataGridView apabila pada kolom Qty terdapat value 0.

• Masih dengan menggunakan database DbCoba & TabelBarang

• Bukalah project Visual Studio 2005, klik file, pilih New Project, Visual Basic, Windows Application, Ok.

• Drag n drop DataGridView ke form.

•  Double klik form, pada event load, copas code berikut :

cn = New SqlConnection("server=(local)\sqlexpress;database=coba;uid=UserId Anda;pwd=PasswordAnda")
cn.Open()
da = New SqlDataAdapter("select Kode_Barang as [KODE BARANG],Nama_Barang as [NAMA BARANG],QTY from TabelBarang", cn)
dt = New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt

• Pada object DataGridView1 dan event RowPostPaint copas code berikut :

Dim DGRow As DataGridViewRow = DataGridView1.Rows(e.RowIndex)
If DGRow.Cells("Qty").Value.ToString = 0 Then

DGRow.DefaultCellStyle.BackColor = Color.Red
DGRow.ReadOnly = True

End If

• Langkah terakhir, Run aplikasi anda.
• Selamat Mencoba :)...   

Contoh preview form