منتدى فيجوال بيسك لكل العرب
استفسار عن استعلام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن استعلام (/showthread.php?tid=31288)



استفسار عن استعلام - خالد كامل1 - 10-09-19

احبتى فى الله لكم الخير والسعاهده باذن الواحد الاحـــــــد سبحانه وتعالى

ابغى طريقه عمل استعلام ربحى من 4 جداول مع التجميع والطرح
فهل هذا ممكن  وماهى الطريقه
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لنفترض( جدول المصروفات  وجدول تكلفه  وجدول مصروفات صيانه ) وجدول انتاج  
الفرق بين الثلاث جداول وجدول الانتاج يعطينى الربح ولكم منى جزيل الشكر


RE: استفسار عن استعلام - ابراهيم ايبو - 10-09-19

السلام عليكم اخي خالد
ستقوم بجلب البيانات المطلوبة من الجداول الاربعة بجملة استعلام للحقول الاربعة حقل من كل جدول وفق شرط رقم الفاتورة او الاي دي الذي يجمعها 
ثم في نهاية كود جلب البيانات واملاء الداتا غرايد فيو ستنشئ عمود جديد في الداتا تابل باسم الربح وستكون قيمته عبارة عن (قيمة الانتاج) - (مجموع الحقول الثلاثة الاخرى)
 هذا الكود سينشئ لك عمود الربح وعملية الحساب وفق جملة الفور

كود :
dt.Columns.Add("الربح")
           For i As Integer = 0 To dgv_table.Rows.Count - 1
               dgv.Rows(i).Cells("الربح").Value = (dgv.Rows(i).Cells("عمود الانتاج").Value) - (dgv.Rows(i).Cells("عمود المصروفات").Value + dgv .Rows(i).Cells("عمود التكلفة").Value + dgv.Rows(i).Cells("عمود مصروفات صيانه").Value).ToString
           Next



RE: استفسار عن استعلام - asemshahen5 - 10-09-19

بعد الشكر للاخ ابراهيم عندي عدة أسئلة لكاتب الموضوع .

جدول المصروفات وجدول تكلفه وجدول مصروفات صيانه هذه الجداول تعني تكلفة السلعة المصنعة .

جدول انتاج ماذا تعني به هل هو جدول مبيع السلعة المصنعة ام به عامود تحدد به سعر التكلفة لتحدد عن طريقه نسبة الربح .

سؤال ثاني هل يجد عندك بالجداول السابقة بندي الهدر و بند التلف بداخلها .