تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال عن كيفية عمل فلتر للجمع في الداتا غريد
#1
السلام عليكم 

لدي في المشروع الداتا غريد عملت له زر يقوم بالإستعلام عن الكمية بين تاريخين ويعرضها بشكل تجميعي  

السؤال كيف اعمل كود يقوم بترتيب الكمية حسب الرقم الأكبر فالأصغر  مع شرط عدم عرض الرقم إذا كان صفر 

اقصد ان نجعل العمود المخصص للكمية يفرز الأرقام من الأكبر لللأصغر  ممكن نستخدم خاصية sort المخصصة لعملية الفرز او ماشابه 

وهذا المرفق ارجو المساعدة وشكرا


الملفات المرفقة
.zip   alkmia.zip (الحجم : 50.22 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:
#2
كنت اود مساعدتك لكن انت تستخدم الفيجوال بيسك 6 و انا رحلت عن هذا .........
معذرة
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#3
(04-07-16, 07:08 AM)aliday03 كتب : كنت اود مساعدتك لكن انت تستخدم الفيجوال بيسك 6 و انا رحلت عن هذا .........
معذرة

وانا كنت اود أنك لم تضع هذه المشاركة 

اخي الكريم إذا لاتملك الحل ولا تستطيع المساعدة من الأفضل ألا تحبط الآخرين
الرد }}}
تم الشكر بواسطة: عبدالقادرعواد
#4
وجدت الحل وللفائدة اضع الكود :

كود :
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

' Sort on the clicked column.

Dim rs As ADODB.Recordset

Set rs = Adodc1.Recordset

If rs.Sort <> DataGrid1.Columns(ColIndex).DataField & " ASC" Then

' Sort in ascending order; this block is executed if the

' data isn't sorted, is sorted on a different field,

' or is sorted in descending order.

rs.Sort = DataGrid1.Columns(ColIndex).DataField & " ASC"

Else

' Sort in descending order.

rs.Sort = DataGrid1.Columns(ColIndex).DataField & " DESC"

End If

' No need to refresh the contents of the DataGrid.

End Sub


ولكن بقي الكود الأسهل وهو تجاهل الكمية التي تكون صفرا
الرد }}}
#5
يا فاضل،

لم أرى في رد علي أي احباط، بالعكس هو أراد أن يشعرك بأمنيته لو كان يعرف vb6 ويشكر على هذه المشاعر، ورده إن دل فهو يدل على حبه للمساعدة وللخير.
الرد }}}
تم الشكر بواسطة: amer2000
#6
(05-07-16, 09:54 AM)الوادي كتب : يا فاضل،

لم أرى في رد علي أي احباط، بالعكس هو أراد أن يشعرك بأمنيته لو كان يعرف vb6 ويشكر على هذه المشاعر، ورده إن دل فهو يدل على حبه للمساعدة وللخير.

ان كانت هذه مشاعره فأنا أشكره جزيل الشكر واشكرك استاذ الوادي على التوضيح








اتمنى من الأخوة ايجاد كود لايظهر الصنف اذا كانت كميته صفر انا اعرف انها عن طريق اضافة جملة الشرط if ولكن اريد كيفية صياغته وشكرا
الرد }}}
تم الشكر بواسطة: الوادي , princeofislam
#7
و عليكم السلام و رحمة الله
اتمنى ان يكون هذا هو المطلوب

.rar   alkmia {1}.rar (الحجم : 44.4 ك ب / التحميلات : 93)
الرد }}}
#8
نعم هو المطلوب اخي أمير اشكرك جزيل الشكر وزادك الله علما
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#9
ما شاء الله-حل رائع
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,068 19-01-24, 02:39 PM
آخر رد: cls
Heart كيفية تغيير نوعية الــ DataBase أبو خالد الشكري 4 239 10-01-24, 10:55 PM
آخر رد: أبو خالد الشكري
  [vb6.0] سؤال كيف يتم تحديد عدد مرات تنصيب الملف التنفيذي لبرنامج Hassan.syria 2 193 02-01-24, 10:07 AM
آخر رد: Hassan.syria
  سؤال بخصوص الكتيف ربورت abde6726 2 324 20-11-23, 10:54 AM
آخر رد: abde6726
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  [سؤال] كيفية حذف إسم شخص من listbox من دون الضغط على الإسم؟ ihabgh123 2 406 12-06-23, 10:09 PM
آخر رد: ihabgh123
  سؤال عن البحث بجدولين مختلفين ziadshhab 1 346 03-06-23, 10:35 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اكثر من سؤال حول كريستال ريبورت ؟؟ Microformt 0 477 20-05-23, 09:54 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم