منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد

الصفحات : 1 2 3

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(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

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

كود :

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

الصفحات : 1 2 3

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

break

asemshahen5

break

asemshahen5

break

asemshahen5

break

حريف برمجة

asemshahen5

حريف برمجة