[3booody]

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

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

كود :

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

[amrmosa673@gmail.com]

(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