snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
For intI As Integer = 0 To BARCLODDataGridView.Rows.Count - 2
For intJ As Integer = intI + 1 To BARCLODDataGridView.Rows.Count - 2
If BARCLODDataGridView.Rows(intI).Cells(0).Value = BARCLODDataGridView.Rows(intJ).Cells(0).Value Then
MsgBox("พาสซ้ำกรุณาตรวจสอบ Barcode: " & BARCLODDataGridView.Rows(intJ).Cells(0).Value)
Me.BARCLODBindingSource.RemoveCurrent()
Dim u As Integer
u = BARCLODDataGridView.Rows.Count - 1
BARCLODDataGridView.CurrentCell = BARCLODDataGridView(0, u).Value
Exit Sub
End If