منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد (/showthread.php?tid=27769)

الصفحات: 1 2 3


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - break - 05-12-18

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

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

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

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

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

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

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - asemshahen5 - 05-12-18

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - break - 05-12-18

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

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

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

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

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

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - asemshahen5 - 05-12-18

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

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - break - 05-12-18

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

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - asemshahen5 - 05-12-18

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - break - 05-12-18

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

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

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

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - حريف برمجة - 05-12-18

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

كود :
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

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


RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - asemshahen5 - 05-12-18

كود :
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



RE: عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد - حريف برمجة - 05-12-18

(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