20-10-14, 11:27 AM
(20-10-14, 10:46 AM)Abu Ehab كتب : السلام عليكم
الأمر سهل جدا
أنا عملت لك مثال على السريع
مع أني تركت البيسك حاليا ولا أستخدمها
شوف :
لنفرض مثلا عندنا داتا جريد فيوو فيها 3 أعمده ومجموعه لا محدوده من السطور
وعايزين نجمع الأعمده في سطر منفصل في أخر سجل للجريدفيوو
أنا عملت هنا 3 أعمده
الأول للمنتج
التاني للشراء
التالث للأرباح
وجمعتهم وأظهرتهم في سجل منفصل في اخر الجريدفيوو وكمان تم تلوين السطر بلون مختلف حتى يكون واضح لك .
وكمان رقمت لك السطور
PHP كود :
Public Class Form1
Sub CreateGrd()
With DataGridView1
.ColumnCount = 3
.Columns(0).HeaderText = "Product"
.Columns(1).HeaderText = "Cost Pice"
.Columns(2).HeaderText = "Profit"
End With
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CreateGrd()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim TotalCostPrice As Integer = (From rr As DataGridViewRow In DataGridView1.Rows _
Select CInt(rr.Cells(1).Value)).Sum()
Dim TotalProfie As Integer = (From rr As DataGridViewRow In DataGridView1.Rows _
Select CInt(rr.Cells(2).Value)).Sum()
DataGridView1.Rows.Add(New String() {"Total", TotalCostPrice, TotalProfie})
For Each r As DataGridViewRow In DataGridView1.Rows
r.HeaderCell.Value = (r.Index + 1).ToString()
If r.Cells(0).Value = "Total" Then
r.DefaultCellStyle.ForeColor = Color.White
r.DefaultCellStyle.BackColor = Color.Black
End If
Next
End Sub
End Class
في البداية اكثر شيء افرحني بالمنتدى رد اخي ابو ايهاب بعد تجربة الكود على بيانات معروضة من قاعدة البيانات تظهر نفس رسالة الخطأ التالية (يتعذر إضافة صفوف إلى مجموعة صفوف DataGridView برمجيًا عندما يكون عنصر التحكم مرتبطًا ببيانات.) تم تجربة الكود على مثال اخي benomar ولتوضيح اكثر مرفق المثال
الله المستعان