منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته 
Private Sub Command8_Click()


On Error Resume Next

ConnectionDatabase
If RS_Data1.State = adStateOpen Then RS_Data1.Close

RS_Data1.Open "Select * From CASES Where [outcome]='" & Combo18.Text & "'", DB, adOpenStatic, adLockOptimistic

If RS_Data1.RecordCount > 1 Then
Set MSHFlexGrid1.DataSource = RS_Data1
Label1.Caption = RS_Data1.RecordCount
Else
Set MSHFlexGrid1.DataSource = RS_Data1
MSHFlexGrid1.Clear

Label1.Caption = RS_Data1.RecordCount

End If

If RS_Data1.State = adStateOpen Then RS_Data1.Close
If DB.State = adStateOpen Then DB.Close
end if

---

السؤال ؟


اريد مثلا فرز النتائج :

    الاسم      النتيجة
   احمد          سلبي
   عمر           ايجابي
  خالد       
   عامر     
   منير          سلبي

اذا فرزت الايجابي   او السلبي بيظهر 

لكن كيف افرز بدون نتائج وهي الفرغه مثل خالد و عامر    ...

اضف شرط في جملة الاستعلام كالتالي :

لنفرض حقل النتيجة اسمه result

عذرا على التاخير 


شكرا اخ  [b]حريف برمجة[/b]


بخصوص الكود لم يقلح تماما   ... ارجو الرد من الاخوة شاكرا لكم...نرجو  التعديل في الكود او عمل فكره اخرى  للسؤال السابق,#1

للبحث عن قيم فارغة كل مالعليك ان تجعل البحث بهذه الطريقة

طبعاً كل ما تحتاجه التركيز عليه هو 

الف الف شكرا وبيض الله ووجهك وانار دربك