12-02-17, 03:57 PM
12-02-17, 04:14 PM
تفضل اخي الكريم
'*--------------------------------------------------------------------------
Dim sum As Integer = 0 ' لجمع قيم عمود كامل
For i As Integer = 0 To DataGridView1.Rows.Count - 1
sum += Convert.ToInt32(DataGridView1.Rows(i).Cells(3).Value)
Next
TextBox2.Text = sum.ToString()
'*--------------------------------------------------------------------------
Try
Dim zz As Integer = TextBox1.Text 'تعريف متغير لتغيير رقم العمود
Dim sum As Integer = 0 ' لجمع قيم عمود متغير كامل
For I As Integer = 0 To DataGridView1.Rows.Count - 1
sum += Convert.ToInt32(DataGridView1.Rows(i).Cells(zz).Value)
Next
TextBox2.Text = sum.ToString()
Catch ex As Exception
MsgBox("اكتب رقم العمود في مكان الاسم")
End Try
'*--------------------------------------------------------------------------
' جمع قيم معينة
Me.TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum() 'جمع قيم من الداتاجريد فيو
Me.TextBox2.Text = (From item In ListBox1.Items Select CDbl(item(0).ToString)).Sum() 'جمع قيم من اللست بوكس
Me.TextBox3.Text = (From item In ListView1.Items Select CDbl(item.SubItems(0).Text)).Sum() 'جمع قيم من اللست فيو
Me.TextBox4.Text = (From row In DataTable1.Rows Select CDbl(row.Item(0))).Sum() 'جمع قيم من الجدول مباشرة
'*--------------------------------------------------------------------------
Dim sum As Integer = 0 ' لجمع قيم عمود كامل
For i As Integer = 0 To DataGridView1.Rows.Count - 1
sum += Convert.ToInt32(DataGridView1.Rows(i).Cells(3).Value)
Next
TextBox2.Text = sum.ToString()
'*--------------------------------------------------------------------------
Try
Dim zz As Integer = TextBox1.Text 'تعريف متغير لتغيير رقم العمود
Dim sum As Integer = 0 ' لجمع قيم عمود متغير كامل
For I As Integer = 0 To DataGridView1.Rows.Count - 1
sum += Convert.ToInt32(DataGridView1.Rows(i).Cells(zz).Value)
Next
TextBox2.Text = sum.ToString()
Catch ex As Exception
MsgBox("اكتب رقم العمود في مكان الاسم")
End Try
'*--------------------------------------------------------------------------
' جمع قيم معينة
Me.TextBox1.Text = (From row In DataGridView1.Rows Select CDbl(row.Cells(0).Value)).Sum() 'جمع قيم من الداتاجريد فيو
Me.TextBox2.Text = (From item In ListBox1.Items Select CDbl(item(0).ToString)).Sum() 'جمع قيم من اللست بوكس
Me.TextBox3.Text = (From item In ListView1.Items Select CDbl(item.SubItems(0).Text)).Sum() 'جمع قيم من اللست فيو
Me.TextBox4.Text = (From row In DataTable1.Rows Select CDbl(row.Item(0))).Sum() 'جمع قيم من الجدول مباشرة
12-02-17, 04:19 PM
شكرا لك اخي الكريم على هذا الجهد الرائع
لكن المشكلة اخي لا يوجد عندي داتا جريد في الفورم فقط يوجد تكست بوكس وبدي تظهر النتيجة فية
وشكرا
لكن المشكلة اخي لا يوجد عندي داتا جريد في الفورم فقط يوجد تكست بوكس وبدي تظهر النتيجة فية
وشكرا
12-02-17, 04:54 PM
Dim sql4 As String = ""
sql4 = "SELECT SUM(اسم_الحقل) AS NetInvoice FROM dbo.اسم_الجدول"
Dim adp4 = New SqlClient.SqlDataAdapter(sql4, cn)
Dim ds4 As New DataSet
adp4.Fill(ds4)
Dim dt4 = ds4.Tables(0)
Dim sum As Integer = 0
For I As Integer = 0 To dt4.Rows.Count - 1
sum += Convert.ToInt32(dt4.Rows(I).Item("NetInvoice"))
Next
TextBox1.Text = sum.ToString()
sql4 = "SELECT SUM(اسم_الحقل) AS NetInvoice FROM dbo.اسم_الجدول"
Dim adp4 = New SqlClient.SqlDataAdapter(sql4, cn)
Dim ds4 As New DataSet
adp4.Fill(ds4)
Dim dt4 = ds4.Tables(0)
Dim sum As Integer = 0
For I As Integer = 0 To dt4.Rows.Count - 1
sum += Convert.ToInt32(dt4.Rows(I).Item("NetInvoice"))
Next
TextBox1.Text = sum.ToString()
12-02-17, 06:17 PM
السلام عليكم
كيف قرأت البيانات؟
كيف قرأت البيانات؟