Berbagi Cerita, Catatan, Pengalaman ngoding dan Secangkir Teh Hangat.

Sunday, December 25, 2016

Menambahkan dan Mengurangi baris, data di Datagridview secara manual.

Hai

Sekarang saya akan coba share bagaimana caranya Menambahkan dan Mengurangi item / baris / data pada Datagridview Kontrol, tentunya saat ini kita belum terhubung kedatabase manapun.

idenya adalah bagaimana sih nambahin atau ngurangin data didalam Datagridview secara manual.

kita asumsikan punya form seperti dibawah.

















sekenario nya adalah,
  • Ketika kita klik tombol "Tambahkan dalam daftar" data yang sudah kita isi pada kolom Nik, Nama, Jenis Kelamin, dan Tanggal lahir akan dimasukan dalam daftar yang sebelumnya sudah kita cek terlebih dahulu apakah nik yang ingin dimasukan sudah ada dalam daftar.
  • Ketika kita klik tombol "Hapus dari daftar" data yang kita pilih dari daftar akan terhapus.

Setelah membuat form seperti diatas langkah - langkah yang selanjutnya kita lakukan adalah.


1. membuat Function dengan return 1 = Nik Sudah ada dalam daftar dan 0 = Nik Belum ada dalam daftar, function ini kita beri nama "cek_nik_dalam_daftar" dengan nik sebagai parameternya.

Private Function cek_nik_dalam_daftar(ByVal nik As Integer) As Integer
        Dim value As Integer
        If DataGridView1.Rows.Count > 0 Then
            'jika datagridview1 sudah ada datanya,
            'perlu dilakukan pengecekan, agar data yang dimasukan dalam daftar
            'tidak ada duplikasi.
            '- 1 karena kita tidak ingin menghitung header sebagai data.
            For i = 0 To DataGridView1.Rows.Count - 1
                If DataGridView1.Rows.Item(i).Cells(0).Value = nik Then
                    'dengan cara ini, akan mengecek semaua baris,
                    'walaupun dibaris awal sudah ditemukan nik yang sama
                    'kalo mau terminate ketika data ketemu
                    'value = 1 diganti jadi return 1
                    value = 1
                End If
            Next
        Else
            'jika datagridview1 masih kosong tidak perlu mekakukan pengecekan
            value = 0
        End If
        Return value
 End Function


2. Membuat perintah di tombol "Tambahkan dalam daftar"  untuk menambahkan data kedalam Datagridview, yang sebelumnya melakukan pengecekan eskistenst nik dalam daftar.


Private Sub btn_tambahkan_dalam_daftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_tambahkan_dalam_daftar.Click
        If Not tnik.Text = String.Empty And cek_nik_dalam_daftar(tnik.Text) = 0 Then
            Dim data As String()
            data = New String() {tnik.Text, tnama.Text, cmbjk.Text, dttgllahir.Value.Date}
            DataGridView1.Rows.Add(data)
        Else
            MsgBox("Periksa kembali data yang diinputkan", MsgBoxStyle.Critical)
        End If
End Sub














3. Membuat perintah di tombol "Hapus dari daftar". ada 2 cara dalam menghapus baris di datagridview. menggunakan datagridview1.rows.remove atau datagridview1.rows.removeat, apa bedanya ?
bedanya adalah, cek disini :).

datagridview1.rows.remove 


Private Sub btn_hapus_dari_daftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus_dari_daftar.Click
        If DataGridView1.Rows.Count > 0 And DataGridView1.SelectedRows.Count > 0 Then
            DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
        End If
 End Sub


datagridview1.rows.removeat


Private Sub btn_hapus_dari_daftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapus_dari_daftar.Click
        If DataGridView1.Rows.Count > 0 And DataGridView1.SelectedRows.Count > 0 Then
            Dim index As Integer = DataGridView1.SelectedCells.Item(0).RowIndex
            DataGridView1.Rows.RemoveAt(index)
        End If
 End Sub



sekian dulu berbaginya, jangan lupa like, komen, share.
jangan lupa sertakan link blog ini sebagai sumber kalo kalian mau paste tutorial ini di blog kalian.
Share:

0 comments:

Post a Comment

Powered by Blogger.

Ads 468x60px

Freelancer

Jaka Pradesa

Data Entry and Softwares

E: j.r.pradesa@gmail.com

Hire me on Freelancer.com

Social Icons