+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19205)
طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس - nmst70 - 12-02-17
اخواني الاعزاء
لي طلب كود صغير لو سمحتم
جمع عامود من جدول واظهار النتيجة في تكست بوكس
استخدم فيجوال نت 2008
ولكم الشكر
RE: طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس - وائل القطاوي - 12-02-17
تفضل اخي الكريم
'*--------------------------------------------------------------------------
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() 'جمع قيم من الجدول مباشرة
RE: طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس - nmst70 - 12-02-17
شكرا لك اخي الكريم على هذا الجهد الرائع
لكن المشكلة اخي لا يوجد عندي داتا جريد في الفورم فقط يوجد تكست بوكس وبدي تظهر النتيجة فية
وشكرا
RE: طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس - ابو يوسف النواوي 2 - 12-02-17
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()
RE: طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس - مساعدة - 12-02-17
السلام عليكم
كيف قرأت البيانات؟