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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال جمع كل صفين لوحدهم في الداتا جرايد فيو (/showthread.php?tid=49366)



سؤال جمع كل صفين لوحدهم في الداتا جرايد فيو - windoo - 30-06-24

السلام عليكم

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

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

وشكرا


RE: سؤال جمع كل صفين لوحدهم في الداتا جرايد فيو - Kamil - 30-06-24

جرب التالي

PHP كود :
Public Class Form1
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles 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 



RE: سؤال جمع كل صفين لوحدهم في الداتا جرايد فيو - windoo - 01-07-24

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

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

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