+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار البحث باستخدام ComboBox (/showthread.php?tid=14438)
الصفحات:
1
2
RE: استفسار البحث باستخدام ComboBox - امل حسن - 24-01-16
اسفه على التاخير اخي ولكن نفس المشكله عندما اقوم بالحبث وظهور السجلات بعد البحث في الداتا جريد فيو وعند الضغط على السجل لا يتم عرضه في التكست بوكس
RE: استفسار البحث باستخدام ComboBox - HASAN6.0 - 24-01-16
في زر البحث
PHP كود :
Dim Query As String = "Select * From car_t Where 1=1"
If String.IsNullOrWhiteSpace(Me.ComboBox1.Text) Then
MsgBox("Field is empty", MsgBoxStyle.Critical, "Error")
Me.ComboBox1.DroppedDown = True
Return
End If
If ComboBox1.SelectedIndex = 0 Then
If txtValue.Text <> "" Then
Query = Query & " AND car2 = '" & txtValue.Text & "'"
End If
End If
If ComboBox1.SelectedIndex = 1 Then
If txtValue.Text <> "" Then
Query = Query & " AND car3 = '" & txtValue.Text & "'"
End If
End If
If ComboBox1.SelectedIndex = 2 Then
If txtValue.Text <> "" Then
Query = Query & " AND car5 = '" & txtValue.Text & "'"
End If
End If
Dim cmd As New OleDbCommand(Query, con)
da = New OleDbDataAdapter(cmd)
ds.Clear()
da.Fill(ds, "car_t")
Me.DataGridView1.DataSource = ds
التغيير في اخر 3 سطور فقط
لتصبح
PHP كود :
ds.Clear()
da.Fill(ds, "car_t")
Me.DataGridView1.DataSource = ds
RE: استفسار البحث باستخدام ComboBox - امل حسن - 24-01-16
اشكركم جميعا تم حل المشكله بكود HASAN6.0 وشكرا لك اخي
وشكرا لك اخي khodor1985 على مساعدتك
واشكركم جميعا
RE: استفسار البحث باستخدام ComboBox - امل حسن - 24-01-16
اشكرك اخي على مساعدتك