منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] سؤال عن كيفية عمل فلتر للجمع في الداتا غريد (/showthread.php?tid=16345)

سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - فاضل الحمود - 04-07-16

السلام عليكم 

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

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

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

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

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - aliday03 - 04-07-16

كنت اود مساعدتك لكن انت تستخدم الفيجوال بيسك 6 و انا رحلت عن هذا .........
معذرة

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - فاضل الحمود - 04-07-16

(04-07-16, 07:08 AM)aliday03 كتب : كنت اود مساعدتك لكن انت تستخدم الفيجوال بيسك 6 و انا رحلت عن هذا .........
معذرة

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

اخي الكريم إذا لاتملك الحل ولا تستطيع المساعدة من الأفضل ألا تحبط الآخرين

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - فاضل الحمود - 04-07-16

وجدت الحل وللفائدة اضع الكود :

كود :
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


ولكن بقي الكود الأسهل وهو تجاهل الكمية التي تكون صفرا

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - الوادي - 05-07-16

يا فاضل،

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

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - فاضل الحمود - 05-07-16

(05-07-16, 09:54 AM)الوادي كتب : يا فاضل،

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

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






اتمنى من الأخوة ايجاد كود لايظهر الصنف اذا كانت كميته صفر انا اعرف انها عن طريق اضافة جملة الشرط if ولكن اريد كيفية صياغته وشكرا

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - فاضل الحمود - 05-07-16

نعم هو المطلوب اخي أمير اشكرك جزيل الشكر وزادك الله علما

RE: سؤال عن كيفية عمل فلتر للجمع في الداتا غريد - princeofislam - 13-07-16

ما شاء الله-حل رائع