Tutorial Vb.Net : Filter String Value di DataGridVidew

Cara membuat DataGridView hanya bisa diisi Value int atau angka

Tutorial Visual Basic Netini berguna pada kondisi sang programer hanya menginginkan Data yang diinput di DataGridView ber Value Integer saja, selain itu tidak diperbolehkan, dalam penggunaanya Sector Code telah membuat contoh aplikasi input nilai, dimana nilai yang di input bertype Integer atau Digit, selain dari value itu tidak akan bisa diinput pada Aplikasi nilai tersebut,

Bagaimana cara memfilter Value DataGridView tsb ?

Enggak susah kok, ikuti saja tutorial ini sampai abis, oh iya bagi yang belum tau cara menampilkan data di DataGridView silahkan baca - baca lagi Tutorial Vb.Net : Menampilkan data dari Database MySql ke DataGridView, Langsung saja, Buatlah sebuah Form baru dengan nama "FormUtama.Vb" dan tuliskan semua Code berikut :

    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        Dim value As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
        Try
            For Each c As Char In value
                If Not Char.IsDigit(c) Then
                    MessageBox.Show("Silahkan masukkan Nilai Angka Pada Kolom Nilai, dan Deskripsi Pada Kolom Deskripsi")
                    DataGridView1.Rows(e.RowIndex).Cells(3).Value = 0
                    Exit Sub
                End If
            Next
            If DataGridView1.Rows(e.RowIndex).Cells(3).Value > 100 Then
                MsgBox("Data lebih besar dari 100, Tidak Boleh")
                DataGridView1.Rows(e.RowIndex).Cells(3).Value = 100
            ElseIf DataGridView1.Rows(e.RowIndex).Cells(3).Value < 0 Then
                DataGridView1.Rows(e.RowIndex).Cells(3).Value = 0
                MsgBox("Data lebih kecil dari 0, Tidak Boleh")
            End If
            ' If DataGridView1.RowCount >= vJumlahRow Then
            'DataGridView1.CurrentCell = DataGridView1.Rows(vJumlahRow).Cells(3)
            ' End If
        Catch ex As Exception
            MsgBox("ada error.." & ex.Message)
        End Try
    End Sub

Desainlah FrmUtama.vb yang anda buat seperti gambar berikut :

Dan jangan lupa untuk menyesuaikan dengan kebutuhan anda, jika ada pertanyaan silahkan tanya pada kotak komentar dibawah, terima kasih ;)