Kontrol DataGridView digunakan untuk menampilkan data. Baik Data dari hasil query maupun dari textbox. Kita akan membahas bagaimana caranya memasukkan data ke datagridview dari textbox dengan hasil berurut secara descending. Jadi setiap data yang diinput baru akan ditempatkan di baris pertama.
Kita buat form dan komponennya lihat gambar :
dan ketik list Programnya sebagai berikut :
Public Class Form2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
gridme.Rows.Add(1)
gridme.Rows(gridme.RowCount - 2).Cells(0).Value = CStr(gridme.RowCount - 1)
gridme.Rows(gridme.RowCount - 2).Cells(1).Value = TextBox1.Text
gridme.Rows(gridme.RowCount - 2).Cells(2).Value = TextBox2.Text
gridme.Rows(gridme.RowCount - 2).Cells(3).Value = TextBox3.Text
gridme.Rows(gridme.RowCount - 2).Cells(4).Value = TextBox4.Text
gridme.Rows(gridme.RowCount - 2).Cells(5).Value = TextBox5.Text
gridme.Sort(New comparer)
gridme.Update()
End Sub
Public Class comparer Implements System.Collections.IComparer
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim dataX As DataGridViewRow = DirectCast(x, DataGridViewRow)
Dim dataY As DataGridViewRow = DirectCast(y, DataGridViewRow)
'sort descending
Return CInt(dataY.Cells(0).Value).CompareTo(CInt(dataX.Cells(0).Value))
End Function
End Class
End Class
Ini adalah hasil akhirnya.
selamat mencoba.
Diperuntukkan bagi mereka yang ingin belajar bahasa pemrograman VB.Net. Blog ini menyediakan referensi tentang segala sesuatu dari pemrograman dasar. Blog ini menyajikan konsep dasar VB.NET seperti konsep pemrograman OOP, penggunaan objek dan koleksi lainnya. Selain tempat untuk belajar juga merupakan tempat untuk berbagi Pengalaman, Pengetahuan, Pertukaran dan Pertanyaan yang diajukan.