منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
سلام عليكم 
محتاج كود 
اولا : اظهار مجموع العمود داتا جريد فيو   في  نهاية العمود 

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

       con.Open()
       TextBox1.Text = cmd.ExecuteScalar
       con.Close()
إطلع على هذه المشاركة سوف تفي بالغرض
http://vb4arb.com/vb/thread-15565.html
بالتوفيق
(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
بالتوفيق

هو هذا الي اريده 
بس ياريت تكتبلي 
الكود لان المثال 
نزلته بس مجاي 
يظهر الكود به مشكله
أخي العزيز الكود مجرب وليس فيه مشكلة، ولكن لو سمحت هل يمكن أن ترسل لنا رسالة الخطأ؟
(13-09-16, 09:11 PM)khodor1985 كتب : [ -> ]أخي العزيز الكود مجرب وليس فيه مشكلة، ولكن لو سمحت هل يمكن أن ترسل لنا رسالة الخطأ؟

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


كود :
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  هو قيمة انديكس العمود المراد حساب مجموع قيمه و المثال المرفق يوضح ذلك :