[قناص المدينة]

For i = 0 To dvg_purchas.Rows.Count - 1
If dvg_purchas.Rows(i).Cells(0).Value.ToString = txt_code.Text Then
dvg_purchas.Rows(i).Cells(1).Value += 1
'هنا ضع جملة الاضافة لقاعدة البيانات
txt_code.ResetText()
Return

Else
'هنا ضع جملة الاضافة لقاعدة البيانات
txt_code.ResetText()
Return
End If



Next