المشاركات : 1,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
هناك مجموعة عناصر عددها 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,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
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,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
يا اخي
احرجتني بكرمك
شكرا لك يا باشا ........................
شكرا