download gratis video tutorial vb 6 dan vb.net plus contoh aplikasi

cara mencegah entri data ganda dalam datagridview

 

 

 

Imports System.Data.SqlClient

 

Public Class CegahdataGanda

 

Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim dr As SqlDataReader

 

Sub koneksi()
conn = New SqlConnection("data source=user-pc\sqlexpress;initial catalog=dbnashir;integrated security=true")
conn.Open()
End Sub

 

Private Sub DGV_CellEndEdit (ByVal sender As Object, ByVal e As System. Windows. Forms. DataGridViewCellEventArgs) Handles DGV.CellEndEdit

If e.ColumnIndex = 0 Then
'======================================
For barisatas As Integer = 0 To DGV.RowCount - 1
For barisbawah = barisatas + 1 To DGV.RowCount - 1
If DGV.Rows(barisbawah).Cells(0).Value = DGV.Rows(barisatas).Cells(0).Value Then
DGV.Rows(barisatas).Cells(3).Value = DGV.Rows(barisatas).Cells(3).Value + 1
DGV.Rows(barisatas).Cells(4).Value = DGV.Rows(barisatas).Cells(2).Value * DGV.Rows(barisatas).Cells(3).Value
DGV.Rows.RemoveAt(DGV.CurrentCell.RowIndex)
SendKeys.Send("{down}")
Exit Sub
End If
Next
Next
'=======================================
Call koneksi()
cmd = New SqlCommand("select * from tblbarang where kode_barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
dr = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
DGV.Rows(e.RowIndex).Cells(1).Value = dr.Item(1)
DGV.Rows(e.RowIndex).Cells(2).Value = dr.Item(3)
DGV.Rows(e.RowIndex).Cells(3).Value = 1
DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
Else
MsgBox("data tidak ditemukan")
SendKeys.Send("{UP}")
DGV.Rows(e.RowIndex).Cells(0).Value = ""
End If
End If
End Sub
End Class