[break]

(04-12-18, 08:38 PM)asemshahen5 كتب : تفضل المثال بعد التعديل :

السلام عليكم ورحمة اللة وبركاتة

قال المصطفى صلى اللة علية وسلم:
"المؤمن كالغيث أينما حل نفع" 
صدق رسول اللة صلى اللة علية وسلم

جزاك اللة خيرا يا اخى

طريقتك بعمل على لوب على نفس العمود فعلا ذكية جدا ولكن

اذا ادت عمل مصفوفة اضع فيها كل الاصنفاف من جدول الاصناف وعمل لوب على المصفوفة ومقارنتة بنفس العمود 
ممكن حضرتك تكتب الكود بهذة الطريقة لانى لا اعرفة

وجزاك اللة خيرا انت والقائمين على المنتدى المبارك هذا

[asemshahen5]

لم افهم ما تريد لاني في المثال عامل طريقتين الأولى رصيد تراكمي على كل الأصناف و الثانية رصيد على كل الاصناف صنف صنف  .

[break]

(05-12-18, 02:06 PM)asemshahen5 كتب : لم افهم ما تريد لاني في المثال عامل طريقتين الأولى رصيد تراكمي على كل الأصناف و الثانية رصيد على كل الاصناف صنف صنف  .

اخى مثالك حل المشكلة 

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

يعنى كيف املئ مصفوفة بعمود فى الجريد واعمل لوب عليها 

وجزاك اللة خيرا

وشكرا جزيلا على اهتمامك واعطائى من وقتك

[asemshahen5]

إعمل بحث عن رقم السلعة في الاستعلام  و جرب اللوب الاول

---

اللوب الأول يستخدم لجرد الأصناف رصيد اخر المدة و اللوب الثاني لجرد رصيد الاصناف مادة مادة

[break]

اريد وضع العمود في مصفوفة 

وعمل دوران على المصفوفة

[asemshahen5]

ما المعلومات الذي تريد تعبئة المصفوفة منها .
ضع صورة لتصورك عما تريده عن طريق الاكسيل او صورة .

[break]

(05-12-18, 06:03 PM)asemshahen5 كتب : ما المعلومات الذي تريد تعبئة المصفوفة منها .
ضع صورة لتصورك عما تريده عن طريق الاكسيل او صورة .

افترض حضرتك دى جريد اول عمود اسم الصنف وثانى عمود اسم الصنف

عايز اكون مصفوفة وتعبئتها برقم الصنف

وعمل لوب عليها يطلع ارقام الاصناف فى رسالة متتابعة

[حريف برمجة]

اخي هذا يقوم بالواجب :

كود :

dgv.Rows(0).Cells(6).Value = Val(dgv.Rows(0).Cells(4).Value) - Val(dgv.Rows(0).Cells(5).Value)
       For i = 1 To dgv.Rows.Count - 1
           dgv.Rows(i).Cells(6).Value = Val(dgv.Rows(i - 1).Cells(6).Value) + Val(dgv.Rows(i).Cells(4).Value) - Val(dgv.Rows(i).Cells(5).Value)
       Next

اذا اردت شي مختلف اشرح اكثر بالصور .

[asemshahen5]

كود :

Dim param As New ArrayList
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

       param.Clear()
       For Each row As DataGridViewRow In DataGridView1.Rows
           param.Add(row.Cells(0).Value)
       Next
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       For i = 0 To param.Count - 1
           MsgBox(param(i).ToString)
       Next
   End Sub

[حريف برمجة]

(05-12-18, 07:52 PM)break كتب :

(05-12-18, 06:03 PM)asemshahen5 كتب : ما المعلومات الذي تريد تعبئة المصفوفة منها .
ضع صورة لتصورك عما تريده عن طريق الاكسيل او صورة .

افترض حضرتك دى جريد اول عمود اسم الصنف وثانى عمود اسم الصنف

عايز اكون مصفوفة وتعبئتها برقم الصنف

وعمل لوب عليها يطلع ارقام الاصناف فى رسالة متتابعة

هذا المطلوب بدون عمل مصفوفة ،، الدوران يكون مباشر على القريدفيو :

فقط قم بتغيير الخلية(6) بالرقم الذي تريده :

كود :

For i = 0 To dgv.Rows.Count - 1
          msgbox(Val(dgv.Rows(i).Cells(6).Value))
      Next