07-09-22, 11:04 AM
بس هذا الطريقه رح تتعبك بالبحث لانه مارح يطلع معك شي لا متاطابق فقط على العموم هذا الكود
اعمل تكست بكس 2 بوتن وبداخل البوتن الاول حط هذا الكود وغير ما يلزم على حسب بياناتك
If Trim$(TextBox12.Text) = "" Then
MsgBox("اكتب الاسم المراد البحث عنه في المكان المخصص له ")
Else
If RadioButton2.Checked = True Then
DataGridView1.DataSource = Me._paragram_lapDataSet.hagz.Where(Function(x) x.Address.Contains(TextBox12.Text)).ToList
Exit Sub
ElseIf RadioButton1.Checked = True Then
DataGridView1.DataSource = Me._paragram_lapDataSet.hagz.Where(Function(x) x.Name_Pationt.Contains(TextBox12.Text)).ToList
Exit Sub
End If
End If
Exit Sub
وفي البوتن الاخر ظيف الكود التالي وغير ما يلزم
Me.DataGridView1.DataSource = Me._paragram_lapDataSet.hagz
Me.TextBox12.Clear()
اعمل تكست بكس 2 بوتن وبداخل البوتن الاول حط هذا الكود وغير ما يلزم على حسب بياناتك
If Trim$(TextBox12.Text) = "" Then
MsgBox("اكتب الاسم المراد البحث عنه في المكان المخصص له ")
Else
If RadioButton2.Checked = True Then
DataGridView1.DataSource = Me._paragram_lapDataSet.hagz.Where(Function(x) x.Address.Contains(TextBox12.Text)).ToList
Exit Sub
ElseIf RadioButton1.Checked = True Then
DataGridView1.DataSource = Me._paragram_lapDataSet.hagz.Where(Function(x) x.Name_Pationt.Contains(TextBox12.Text)).ToList
Exit Sub
End If
End If
Exit Sub
وفي البوتن الاخر ظيف الكود التالي وغير ما يلزم
Me.DataGridView1.DataSource = Me._paragram_lapDataSet.hagz
Me.TextBox12.Clear()
اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة .
