المشاركات : 68
المواضيع 15
الإنتساب : May 2013
السمعة :
0
الشكر: 8
تم شكره 14 مرات في 11 مشاركات
اخواني الاعزاء
لي طلب كود صغير لو سمحتم
جمع عامود من جدول واظهار النتيجة في تكست بوكس
استخدم فيجوال نت 2008
ولكم الشكر
المشاركات : 35
المواضيع 0
الإنتساب : Nov 2015
السمعة :
1
الشكر: 2
تم شكره 10 مرات في 9 مشاركات
تفضل اخي الكريم
'*--------------------------------------------------------------------------
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() 'جمع قيم من الجدول مباشرة
المشاركات : 68
المواضيع 15
الإنتساب : May 2013
السمعة :
0
الشكر: 8
تم شكره 14 مرات في 11 مشاركات
12-02-17, 04:19 PM
(آخر تعديل لهذه المشاركة : 12-02-17, 04:20 PM {2} بواسطة nmst70.)
شكرا لك اخي الكريم على هذا الجهد الرائع
لكن المشكلة اخي لا يوجد عندي داتا جريد في الفورم فقط يوجد تكست بوكس وبدي تظهر النتيجة فية
وشكرا
المشاركات : 42
المواضيع 12
الإنتساب : Jan 2017
السمعة :
1
الشكر: 20
تم شكره 25 مرات في 13 مشاركات
12-02-17, 04:54 PM
(آخر تعديل لهذه المشاركة : 12-02-17, 05:13 PM {2} بواسطة ابو يوسف النواوي 2.)
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()
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
السلام عليكم
كيف قرأت البيانات؟