Kamis, 27 Januari 2011

Memasukkan Hasil Input di TextBox ke DataGridView dengan sort Descending

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.