تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس
#1
اخواني الاعزاء
لي طلب كود صغير لو سمحتم
جمع عامود من جدول واظهار النتيجة في تكست بوكس
استخدم فيجوال نت 2008
ولكم الشكر
الرد }}}
تم الشكر بواسطة:
#2
تفضل اخي الكريم

'*--------------------------------------------------------------------------
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() 'جمع قيم من الجدول مباشرة
الرد }}}
تم الشكر بواسطة:
#3
شكرا لك اخي الكريم على هذا الجهد الرائع

لكن المشكلة اخي لا يوجد عندي داتا جريد في الفورم   فقط يوجد  تكست بوكس وبدي تظهر النتيجة فية
وشكرا
الرد }}}
تم الشكر بواسطة:
#4
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()
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

كيف قرأت البيانات؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 125 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 433 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 176 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 323 18-12-23, 05:17 PM
آخر رد: أبووسم
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 350 25-11-23, 11:51 PM
آخر رد: Adel27213
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 686 17-11-23, 12:04 AM
آخر رد: أبووسم
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 337 16-11-23, 12:02 AM
آخر رد: بلال بلال
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit
  طريقة نقل بيانات عمود من جدول إلى جدول اخر Adel27213 4 441 06-11-23, 07:35 AM
آخر رد: justforit
  مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL صالح عبدالله 3 442 16-10-23, 01:05 AM
آخر رد: صالح عبدالله

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم