المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
هناك مجموعة عناصر عددها 17 مثلا
عايز
اجمع كل 5 لوحدهم والمجموعة الاخيرة هي ناقصة يتم جمعها لوحدها
وفي النهاية مجموع الاعداد
اي مجموع المجموعات
Dim mmm, kkk As Integer
mmm = 0
kkk = 0
Dim rrr() As String = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}
For i = 0 To 16
mmm = mmm + rrr(i)
If i = 4 Or i = 9 Or i = 14 Then
kkk += mmm
MsgBox(mmm)
MsgBox(kkk)
mmm = 0
End If
Next
المشاركات : 71
المواضيع 0
الإنتساب : Jan 2015
السمعة :
21
الشكر: 2566
تم شكره 1060 مرات في 55 مشاركات
07-01-15, 02:30 AM
(آخر تعديل لهذه المشاركة : 07-01-15, 02:43 AM {2} بواسطة sami2015.)
Dim rrr() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}
Dim g = rrr.Select(Function(value, index) New With {value, index}) _
.GroupBy(Function(x) x.index \ 5) _
.Select(Function(group) group.Select(Function(x) x.value))
For i = 0 To g.Count - 1
MsgBox(g(i).Sum)
Next
'For Each r In g
' MsgBox(r.Sum)
'Next
MsgBox(rrr.Sum)
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
07-01-15, 03:32 PM
(آخر تعديل لهذه المشاركة : 07-01-15, 03:45 PM {2} بواسطة atefkhalf2004.)
يا اخي هذا هو المطلوب بعينه
ممتاااااااااااااااااااااز
لكن
عايز اقهم
وشوف هل ممكن الحل بالتغكير ده ام لا
اشوف عدد العناصر
واحدد عدد المجموعات الكاملة
والباقي باسنخدام الدالة mod
واجمع كل مجموعة
بما فيها المجموعة الاخيرة
لكن كييييييييييييييييييييييييييييييييييييييييييف ؟؟؟؟
هل من حل
سؤال مهم جدا مرتبط بالموضوع
كيف استبدل عناصر المصفوفة بعمود في داتاجريد ؟؟؟
شكرا لك كثيرا
Dim rrr() As String
For i = 0 To 10
rrr = DATAGRIDVIEW1.Rows(i).Cells("invtol").Value
Next
For i = 0 To 10
MsgBox(rrr(i))
Next
المشاركات : 71
المواضيع 0
الإنتساب : Jan 2015
السمعة :
21
الشكر: 2566
تم شكره 1060 مرات في 55 مشاركات
Dim rrr = From row In DATAGRIDVIEW1.Rows Select Val(row.Cells("invto").Value)
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
يا اخي
احرجتني بكرمك
شكرا لك يا باشا ........................
شكرا