[nmst70]

اخواني الاعزاء
لي طلب كود صغير لو سمحتم
جمع عامود من جدول واظهار النتيجة في تكست بوكس
استخدم فيجوال نت 2008
ولكم الشكر

[وائل القطاوي]

تفضل اخي الكريم

'*--------------------------------------------------------------------------
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() 'جمع قيم من الجدول مباشرة

[nmst70]

شكرا لك اخي الكريم على هذا الجهد الرائع

لكن المشكلة اخي لا يوجد عندي داتا جريد في الفورم   فقط يوجد  تكست بوكس وبدي تظهر النتيجة فية
وشكرا

[ابو يوسف النواوي 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()

[مساعدة]

السلام عليكم

كيف قرأت البيانات؟