[رحوووم]

فعلت ما قلته لي ... ولكن لم ينجح بعد

هذا هو كود زر إبحث

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Static m As Integer = 0
DataGridView1.Rows.Clear()

'اذا كان التكست المخصص للبحث فارغ يتم الخروج من الاجراء لعدم حدوث اخطاء
' If TextBox1.Text = Trim("") Then Beep() : Exit Sub

If TextBox1.Text = "" Then
' MessageBox("لا توجد نتيجه",48, "تنبيه")
MsgBox("لا توجد نتيجه", 48, "تنبيه")
End If

If RadioButton9.Checked = True Then
ExactSearch()
' ExactSearch()

ElseIf RadioButton10.Checked = True Then
GeneralSearch()

End If

Try


newconnection.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newconnection)
DataAdapter1.Fill(DataSet1, "main")
newconnection.Close()
' DataGridView1.Rows.Clear()




DataGridView1.ColumnHeadersVisible = False



DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "main"
DataGridView1.AllowDrop = True

Button1.Enabled = False


If Me.BindingContext(DataSet1, "main").Count = 0 Then
MsgBox("لا توجد نتيجة", 48, "تنبيه")
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub


وهذا كود زر بحث جديد

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click





TextBox1.Clear()
Button1.Enabled = True


' DataGridView1.Refresh()

DataGridView1.DataSource = Nothing
' DataGridView1.Rows.Clear(
'Call CType(DataGridView1.DataSource, DataTable).Rows.Clear()


End Sub