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.
Kamis, 27 Januari 2011
Kamis, 02 Desember 2010
DataGridView adding rows and columns in VB.NET
The DataGridView control is designed to be a complete solution for displaying tabular data with Windows Forms. The DataGridView control is highly configurable and extensible, and it provides many properties, methods, and events to customize its appearance and behavior. The DataGridView control is used to display data from a variety of external data sources. Alternatively, you can add rows and columns to the control and manually populate it with data. The following vb.net source code shows how to manually create Columns and Rows in a DataGridView.
DataGridView1.Columns(Index).Name = "Column Name"
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "Product ID"
DataGridView1.Columns(1).Name = "Product Name"
DataGridView1.Columns(2).Name = "Product_Price"
Dim row As String() = New String() {"1", "Product 1", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "Product 2", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "Product 3", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Product 4", "4000"}
DataGridView1.Rows.Add(row)
End Sub
End Class
DataGridView1.Columns(Index).Name = "Column Name"
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "Product ID"
DataGridView1.Columns(1).Name = "Product Name"
DataGridView1.Columns(2).Name = "Product_Price"
Dim row As String() = New String() {"1", "Product 1", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "Product 2", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "Product 3", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Product 4", "4000"}
DataGridView1.Rows.Add(row)
End Sub
End Class
Jumat, 29 Oktober 2010
Delete row in DataGridView
we will discuss how to delete a row in DataGridView. its very easy way of typing the following syntax:
Private Sub DataGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
Dim id As String = e.Row.Cells("ISBN").FormattedValue.ToString() 'Taking value to the ISBN field
Dim name As String = e.Row.Cells("Title").FormattedValue.ToString()
'Displays a dialog windows
Dim result As DialogResult = MessageBox.Show("Are you sure you want to delete ISBN " & id & " - " & name & "?", "Delete?", MessageBoxButtons.OKCancel)
'If the Cancel button that is selected then the process will be deleted.
If result = DialogResult.Cancel Then
e.Cancel = True
End If
Private Sub DataGridView1_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView1.UserDeletingRow
Dim id As String = e.Row.Cells("ISBN").FormattedValue.ToString() 'Taking value to the ISBN field
Dim name As String = e.Row.Cells("Title").FormattedValue.ToString()
'Displays a dialog windows
Dim result As DialogResult = MessageBox.Show("Are you sure you want to delete ISBN " & id & " - " & name & "?", "Delete?", MessageBoxButtons.OKCancel)
'If the Cancel button that is selected then the process will be deleted.
If result = DialogResult.Cancel Then
e.Cancel = True
End If
Langganan:
Postingan (Atom)

