Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' إنشاء بعض البيانات التجريبية في DataGridView dataGridView1.ColumnCount = 3 dataGridView1.Columns(0).Name = "Column1" dataGridView1.Columns(1).Name = "Column2" dataGridView1.Columns(2).Name = "Column3"
dataGridView1.Rows.Add(1, 2, 3) dataGridView1.Rows.Add(4, 5, 6) dataGridView1.Rows.Add(7, 8, 9) dataGridView1.Rows.Add(10, 11, 12) End Sub
Private Sub btnSumRows_Click(sender As Object, e As EventArgs) Handles btnSumRows.Click ' إنشاء DataTable لتخزين النتائج Dim dt As New DataTable() For Each column As DataGridViewColumn In dataGridView1.Columns dt.Columns.Add(column.Name) Next
' جمع كل صفين متتاليين وإضافتهما إلى DataTable For i As Integer = 0 To dataGridView1.Rows.Count - 1 Step 2 If i + 1 < dataGridView1.Rows.Count Then Dim row1 As DataGridViewRow = dataGridView1.Rows(i) Dim row2 As DataGridViewRow = dataGridView1.Rows(i + 1) Dim newRow As DataRow = dt.NewRow() For j As Integer = 0 To dataGridView1.ColumnCount - 1 newRow(j) = Convert.ToInt32(row1.Cells(j).Value) + Convert.ToInt32(row2.Cells(j).Value) Next dt.Rows.Add(newRow) End If Next
' تحديث DataGridView بالنتائج الجديدة dataGridView1.DataSource = dt End Sub End Class