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

ثانيا : ترقيم تلقائي للتيكست بوكس يظهر بدون كتابة الرقم
الرد }}}}
تم الشكر بواسطة:
#2
ما هي قاعدة البيانات التي تعتمدها؟
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة:
#3
الكود التالي يمكنك من حساب مجموع قيم حقل ويضع المجموع في تيكست بوكس قد يفيدك .
كود :
Dim cmd As New OleDbCommand("Select SUM(اسم الحقل العددي) From اسم الجدول", con)
       Dim dt As New DataTable

       con.Open()
       TextBox1.Text = cmd.ExecuteScalar
       con.Close()
الرد }}}}
تم الشكر بواسطة:
#4
إطلع على هذه المشاركة سوف تفي بالغرض
http://vb4arb.com/vb/thread-15565.html
بالتوفيق
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة:
#5
(13-09-16, 01:57 AM)أبو ناصر كتب : الكود التالي يمكنك من حساب مجموع قيم حقل ويضع المجموع في تيكست بوكس قد يفيدك .
كود :
Dim cmd As New OleDbCommand("Select SUM(اسم الحقل العددي) From اسم الجدول", con)
       Dim dt As New DataTable

       con.Open()
       TextBox1.Text = cmd.ExecuteScalar
       con.Close()

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

(13-09-16, 01:59 AM)khodor1985 كتب : إطلع على هذه المشاركة سوف تفي بالغرض
http://vb4arb.com/vb/thread-15565.html
بالتوفيق

هو هذا الي اريده 
بس ياريت تكتبلي 
الكود لان المثال 
نزلته بس مجاي 
يظهر الكود به مشكله
الرد }}}}
تم الشكر بواسطة:
#6
أخي العزيز الكود مجرب وليس فيه مشكلة، ولكن لو سمحت هل يمكن أن ترسل لنا رسالة الخطأ؟
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة:
#7
(13-09-16, 09:11 PM)khodor1985 كتب : أخي العزيز الكود مجرب وليس فيه مشكلة، ولكن لو سمحت هل يمكن أن ترسل لنا رسالة الخطأ؟

اخي الغالي 
المثال من انزله 
وافتحه ميظهر الكود
ارجو تنزلي الكود 
هنا
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم و رحمة الله و بركاته 
الكود التالي سهل و بسيط و أظن أنه حسب طلبك بحيث يجمع قيم العمود وفي نهاية العمود 


كود :
Dim sum As Double
       For i = 0 To DataGridView1.Rows.Count - 2
           sum = sum + DataGridView1(index, i).Value
       Next

DataGridView1(index, DataGridView1.Rows.Count - 1).Value = sum

حيث index  هو قيمة انديكس العمود المراد حساب مجموع قيمه و المثال المرفق يوضح ذلك :


الملفات المرفقة
.rar   Collection of column values.rar (الحجم : 82.88 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة:


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


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