22-02-18, 06:14 AM
اريد التاكد من وجود قيمة بخلية بالعمود رقم 1 وعدم اضافتها مجددا
بمعني التاكد من وجود قيم مكررة قبل الاضافة
استخدمت الكود التالي ولم يعمل
وجربت بالطريقة دية
بمعني التاكد من وجود قيم مكررة قبل الاضافة
استخدمت الكود التالي ولم يعمل
كود :
Sub same()
On Error Resume Next
For i As Integer = 0 To DataGridView1.RowCount - 1
If DataGridView1.Rows(i).Cells(1).Value.ToString = TextBox1.Text Then
MsgBox("value found") : Exit Sub
ElseIf Not DataGridView1.Rows(i).Cells(1).Value.ToString = TextBox1.Text Then
MsgBox("value not found") : Exit Sub
End If
Next
End Sub
وجربت بالطريقة دية
كود :
Sub same()
Try
If IsNumeric(TextBox1.Text) = False Then
Dim DataAdapter As New OleDbDataAdapter("SELECT * FROM TB1 WHERE PROGRAMNAM_TB LIKE '" & Trim$(TextBox1.Text) & "'", con)
con.Open()
If Me.BindingContext(DataSet1, "TB1").Count = 0 Then
MsgBox("القيمة غير موجودة", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
Else
MsgBox("القيمة مضافة من قبل", 48 + MsgBoxStyle.MsgBoxRight, "البحث")
End If
End If
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub