[محمد اسماعيل]

اريد التاكد من وجود قيمة بخلية بالعمود رقم 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