تقييم الموضوع :
  • 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
السلام عليكم

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف يمكنني ان اسند نتيجة البحث الى التكست بوكس larbihamri 0 29 منذ 4 ساعة مضت
آخر رد: larbihamri
  [VB.NET] ممكنطريقة ربط 2 جداول مع بعضها وعرضها في جدول رقم 3 ومن تم حفظها وعرضها في تقرير واحد annaba2015 6 66 21-07-18, 11:41 PM
آخر رد: elgokr
  [VB.NET] تحديد عدد احرف التيكست بوكس محمد اسماعيل 3 55 21-07-18, 09:56 AM
آخر رد: YousefOkasha
  كيف اجعل الكلمات تحت بعضها فى الليست بوكس ابو روضة 5 89 16-07-18, 01:34 AM
آخر رد: elgokr
  نسخ جدول المتألق9 4 92 14-07-18, 06:57 PM
آخر رد: mero5000
  ماهو جدول Asc ali.alfoly 10 1,560 13-07-18, 04:13 PM
آخر رد: alfaiz678
  [VB.NET] اريد كود منع المستخدم من الكتابة داخل الكمبو بوكس alfaiz678 2 58 13-07-18, 04:12 PM
آخر رد: alfaiz678
  كيفية استرجاع جدول محدوف المتألق9 3 68 12-07-18, 05:24 AM
آخر رد: mero5000
  [سؤال] كود عبارة عن التحقق من ملف تنفيذي موجود في الويندوز وازا تحقق الشرط يطلع مسج بوكس same1 3 106 10-06-18, 05:49 AM
آخر رد: elgokr
  هل يمكن ان اجعل جدول على شكل مسودة اي بعد الحذف تحول البيانات الى المسودة hassan 14 1 79 09-06-18, 03:48 PM
آخر رد: elgokr

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


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