+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : طلب كود (/showthread.php?tid=17283)
طلب كود - مهندس حيدر - 13-09-16
سلام عليكم
محتاج كود
اولا : اظهار مجموع العمود داتا جريد فيو في نهاية العمود
ثانيا : ترقيم تلقائي للتيكست بوكس يظهر بدون كتابة الرقم
RE: طلب كود - khodor1985 - 13-09-16
ما هي قاعدة البيانات التي تعتمدها؟
RE: طلب كود - أبو ناصر - 13-09-16
الكود التالي يمكنك من حساب مجموع قيم حقل ويضع المجموع في تيكست بوكس قد يفيدك .
كود :
Dim cmd As New OleDbCommand("Select SUM(اسم الحقل العددي) From اسم الجدول", con)
Dim dt As New DataTable
con.Open()
TextBox1.Text = cmd.ExecuteScalar
con.Close()RE: طلب كود - khodor1985 - 13-09-16
إطلع على هذه المشاركة سوف تفي بالغرض
http://vb4arb.com/vb/thread-15565.html
بالتوفيق
RE: طلب كود - مهندس حيدر - 13-09-16
(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
بالتوفيق
هو هذا الي اريده
بس ياريت تكتبلي
الكود لان المثال
نزلته بس مجاي
يظهر الكود به مشكله
RE: طلب كود - khodor1985 - 13-09-16
أخي العزيز الكود مجرب وليس فيه مشكلة، ولكن لو سمحت هل يمكن أن ترسل لنا رسالة الخطأ؟
RE: طلب كود - مهندس حيدر - 13-09-16
(13-09-16, 09:11 PM)khodor1985 كتب : أخي العزيز الكود مجرب وليس فيه مشكلة، ولكن لو سمحت هل يمكن أن ترسل لنا رسالة الخطأ؟
اخي الغالي
المثال من انزله
وافتحه ميظهر الكود
ارجو تنزلي الكود
هنا
RE: طلب كود - أبو ناصر - 14-09-16
السلام عليكم و رحمة الله و بركاته
الكود التالي سهل و بسيط و أظن أنه حسب طلبك بحيث يجمع قيم العمود وفي نهاية العمود
كود :
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 هو قيمة انديكس العمود المراد حساب مجموع قيمه و المثال المرفق يوضح ذلك :