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

الصفحات : 1 2

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

ان شاء الله يكون هذا طلبك ؟

كود :

Dim arr = From n As DataGridViewRow In DataGridView1.Rows Select CDbl(n.Cells(10).Value)

        Dim D As Double = 0

        For Each n As Double In arr

            D += n

        Next

        TextBox1.Text = D

(03-12-19, 07:42 PM)kiki كتب : [ -> ]عمود id = 0
عمود الرقم = 1
عمود الاسم = 2
عمود التاريخ = 3
عمود نوع النشاط = 4
......... الى
عمود ملاحظات = 12
بينما لما تعد هتوصل بالعد ان عمود الملاحظات هو 13
وبما اننا قلنا الملاحظات 12 لو رجعنا بالعد بعدد 2 عمود هيكون عمود المدفوع = 10
وبما انك لست على دراية بالكود وانه تم اخذ الكود كا نسخ ولصق من شخص ما
فهنا يعنى بان الاداء DataGridView قد تكون اسمها مختلف مثل DataGridView1 أو اسم اخر قمت انت بتسميته
فالكود التالى ساقوم بوضع لو على كلمة باللون الاحمر كل ما عليك هو استبدال هذه الكلمة باسم الاداء لديك

إقتباس :TextBox1.Text = DataGridView.Rows.Cast(Of DataGridViewRow).Sum(Function(t) Val(t.Cells(10).Value))
المتبقي الان هو التاكد من اسم الاداء طبقاً لما هو مشار اليه باللون الاحمر
وكذلك عليك التاكد بان ليس هناك اعمدة مخفية لم توضح بالصورة لان المخفي يجب ان يحتسب فى العد

اسم الاداء عندي DataGridView نفس اللي موجوده في الكود

غير معقول أن يكون الاسم هكذا بهذه الكلمة بالذات .. قد يكون مثلا
DataGridView1

الصفحات : 1 2

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

3booody

amrmosa673@gmail.com

عبد العزيز البسكري