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

السلام عليكم

اريد جمع كل صفين لوحدهم في الداتا جرايد فيو

يعني مثلا الاول مع الثاني والثاني مع الثالث وهكذا

وشكرا

جرب التالي

PHP كود :

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 

شكرا لزوق حضرتك وجاري التجربة

طيب بالنسبة لو الصفين تاريخين وعايز اطرحهم من بعض لينتج عدد ايام

هل يصلح الكود للتعديل ولا هيديني ناتج خطا

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

windoo

Kamil

windoo