السلام عليكم ورحمة الله وبركاتة
مطلوب المساعدة في جمع عمود في اداة MSHFlexGrid في VB 0.6
السلام عليكم
تفضل الاستعلام يرجع المجموع بناء على التاريخ d@
كود :
SELECT SUM(total) FROM table WHERE date1 = @d
كود :
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
(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
اوك تما الاستعلام بنفس الكود اللي بعته في اكسس لكن لا يعمل في فيجوال
(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
ولا يجمع الخلية اللي بعدها
كود :
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