[عمر سالم]

السلام عليكم ورحمة الله وبركاتة 
مطلوب المساعدة في جمع عمود في اداة MSHFlexGrid في VB 0.6

[مساعدة]

السلام عليكم

تفضل الاستعلام يرجع المجموع بناء على التاريخ d@

كود :

SELECT SUM(total) FROM table WHERE date1 = @d

[sendbad100]

كود :

SELECT Tabel.*,[Cost1]+[Cost2] AS Total FROM Tabel

جرب هذا  الاستعلام 


لو فرضنا تريد جمع Cost1  + Cost2   والناتج عمود جديد باسم Total


وعليكم السلام

[عمر سالم]

(01-02-17, 10:46 PM)مساعدة كتب : السلام عليكم

تفضل الاستعلام يرجع المجموع بناء على التاريخ d@

كود :

SELECT SUM(total) FROM table WHERE date1 = @d

بارك الله فيك انا اسف ما وضحت سؤالي المطلوب جمع عمود في اداة MSHFlexGrid فيجوال 0.6

[sendbad100]

(01-02-17, 11:01 PM)عمر سالم كتب :

(01-02-17, 10:46 PM)مساعدة كتب : السلام عليكم

تفضل الاستعلام يرجع المجموع بناء على التاريخ d@

كود :

SELECT SUM(total) FROM table WHERE date1 = @d

بارك الله فيك انا اسف ما وضحت سؤالي المطلوب جمع عمود في اداة MSHFlexGrid فيجوال 0.6

نعم واضح الؤال واضح 

ولكن يمكن عمل الجمع في الاستعلام قبل وضعه في mshfelxGrid

[عمر سالم]

انا قمت بضرب cost1 من جدول parts في count1 من جدول invo_sub
[parts.cost1]*[invo_sub.count1]

اريد جمع الناتج عند البحث في تاريخ معين

---

مطلوب المساعدة في جمع عمود في اداة MSHFlexGrid في VB 0.6

اعتذر مره تانية هذا المطلوب

---

(01-02-17, 11:10 PM)sendbad100 كتب :

(01-02-17, 11:01 PM)عمر سالم كتب :

(01-02-17, 10:46 PM)مساعدة كتب : السلام عليكم

تفضل الاستعلام يرجع المجموع بناء على التاريخ d@

كود :

SELECT SUM(total) FROM table WHERE date1 = @d

بارك الله فيك انا اسف ما وضحت سؤالي المطلوب جمع عمود في اداة MSHFlexGrid فيجوال 0.6

نعم واضح الؤال واضح 

ولكن يمكن عمل الجمع في الاستعلام قبل وضعه في mshfelxGrid

اوك تما الاستعلام بنفس الكود اللي بعته  في اكسس لكن لا يعمل في فيجوال

[sendbad100]

جرب هذا

كود :

Dim i As Double

For i = 1 To MF.Rows - 1
i = Val(MF.TextMatrix(i, 2))
Next
 MsgBox i

[عمر سالم]

(01-02-17, 11:25 PM)sendbad100 كتب : جرب هذا

كود :

Dim i As Double

For i = 1 To MF.Rows - 1
i = Val(MF.TextMatrix(i, 2))
Next
 MsgBox i

الكود هذا يزيد رقم واحد في اول خليه من العمود
اي العمود فيه خليه فيها الرقم 6 يظهرلي 7
ولا يجمع الخلية اللي بعدها

[sendbad100]

كود :

Dim X As Double

For i = 1 To MF.Rows - 1
x = Val(x)+ Val(MF.TextMatrix(i, 2))
Next
MsgBox x

اسف
جرب هذا

لا يوجد عندي فجوال حاليا كي اتاكد من صحة الكود

[عمر سالم]

(02-02-17, 12:05 AM)sendbad100 كتب :

كود :

Dim X As Double

For i = 1 To MF.Rows - 1
x = Val(x)+ Val(MF.TextMatrix(i, 2))
Next
MsgBox x

اسف
جرب هذا

لا يوجد عندي فجوال حاليا كي اتاكد من صحة الكود

sendbad100

بارك الله فيك الكود اشتغل ميه الميه الله يرحم ولديك ويجعلك انت وجميع الاهل والاحباب رفقاء النبي علية الصلاة والسلام في الفردوس الاعلى من الجنة 

كيف اجعل الناتج داخل TEXT 
انا قمت بطريقة الا وهي بوضع label بدلmsgbox بحيث يبقى Label1.Caption = X