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

نسخة كاملة : اظهار قيمة الربح في الداتا جريد ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3
بسم الله الرحمن الرحيم
السلام عليكم

لدي داتا جريد فيو، تعرض قيم جدول معين Beda وهذه الحقول هي
اسم المادة
سعر الشراء
سعر المبيع
ملاحظات

تم إضافة الصورة المكبرة للموضوع من قبل الإدارة ( لتسهيل الرؤية ) . بالتوفيق Smile



وصعف ضمن اعمدة الداتا جريد فيو، عامود باسم ريح المادة
ريح المادة = سعر المبيع - سعر الشراء

سؤالي

1- كيف لي ان اجعل الداتا جريد فيو تعرض قيم ربح المادة
2- كيف لي ان اجعل الداتا جريد فيو لاتظهر القيم التي قيمتها 0

ارجو تعديل المثال المرفق

والف شكر
في حدث تحميل الفورم Beda_List ضع الكود التالي :

القديم -----
كود :
'SQLstr = "SELECT Beda_id,Beda_Name,Mabie_Price,shra_Price,(Mabie_Price-shra_Price) as rabh,Beda_Note From Beda Where [Beda_id]>29 and [Mabie_Price]<>0 and [shra_Price]<>0 ORDER BY Beda_Name"
        'LoadData(SQLstr)
القديم -----

استبدله بالجديد------
كود :
DataConnection()

Dim dp As New OleDbDataAdapter("SELECT Beda_id,Beda_Name,Mabie_Price,shra_Price,(Mabie_Price-shra_Price) as الربح,Beda_Note From Beda Where [Beda_id]>29 and [Mabie_Price]<>0 and [shra_Price]<>0 ORDER BY Beda_Name", Conn)
        Dim ds22 As New DataSet

        dp.Fill(ds22)

        DataGridView1.DataSource = ds22.Tables(0)
استبدله بالجديد ------

وراح تنحل كل مشاكلك ،،

بالتوفيق
السلام عليكم
الف شكر اخي
حريف برمجة

من خلال الاطلاع على الاكواد التي تفضلت بها، شعرت مباشرة كانك تستخدم الاستعلام بصيغة SQl

فخطر ببالي، طريقة اسهل وهي ان اقوم بانشاء استعلام ( يعمل على اظهار الربح ) ضمن قاعدة البيانات
واعطيه اسم Beda_Q1 وجعلت كافة الكودات تستخدم Beda_Q1 بدلا من Beda

وقد جربت الامر ونجح معي مائة بالمائة

ثانياً :
ما قصدته بسؤالي عدم اظهار القيم ذات الصفر، هو عدم عرض الصفر ضمن خلايا الجريد فيو بمعنى اخر
باذنجان 200 300
بندورة 0 0
فليفلة 400 600

ما اريده
باذنجان 200 300
بندورة
فليفلة 400 600

[b]اي ان السجل الخاص ببندورة يظل يظهر، بينما الاصفار لا تظهر[/b]

ارجو توضيح ان كان بالامكان جعل الداتا جريد فيو، في بعض من خلاياها لا تظهر قيمة معينة وفق ماشرحت اعلاه
والف شكر
والسلام عليكم
طيب : أنا رايح انصحك نصيحه خذها من أخ كبير لك :
فكرة المشروع جميلة وعجبتني
لكن لو انت لو مشيت على طريقتك هذة راح تتعب كثير كثير
أنا بقول :
أستخدم أسلوب أحترافي حتى ترتاح
بمعنى :
LINQ TO SQL N-Tire
SQL Database
Microsoft Reports Engine
Metro Forms
Dev Compnent DotNetBar
وكل الكلام هذا عبارة عن Classes

بس خلاص ... والقرار عندك .
الف شكر اخي
Abu Ehab
على مداخلتك
بارك الله فيك

إقتباس :LINQ TO SQL N-Tire
ارى انك تشجع بكثرة على استخدام LinQ

وانا بصراحة صار لي الكثير، فيما قرات عن الفيجوال بيسك دوت نت ، واصعب شي هو قواعد البيانات...... وما صدقت حتى بدات اضع اول رجل لي على هذا الطريق
وانا بصراحة بصدد انشاء برنامج محاسبة ومستودعات مشابه تماما لبرنامج كنت قد عملته بالاكسس وهو برنامج تجاري مطروح بالسوق حاليا تحت اسم الكافي للمحاسبة والمستودعات
وانا اريد ان اقلد ذلك البرنامج بحيث اعيد تصميمه بالكامل على الفيجوال بيسك دوت نت

[COLOR="#0000CD"]سوف اخذ بنصحيتك، وسوف اقوم بايقاف العمل مؤقتاً بمشروعي الذي بدأت به، وسوف اركز في القراءة وتتبع المنتديات على LinQ[/COLOR]
[COLOR="#B22222"]وحبذا لو تضع لي بعض الروابط لمواقع مفيدة في هذا المجال، وكذلك حبذا لو تضع لنا مثال واحد فيه مادكرت ( واجهات مترو - Linq)[/COLOR]

والف الف شكر على النصيحة
السلام عليكم و رحمة الله و بركاته,

عندي إستفسار للأخ أبو إيهاب,

أليست الـ LINQ أبطى من الـ ADO.Net؟
و ذلك حسب إعتقادي فأجوا منك تصحيحي لو سمحت.

بالإضافة إلى, ما قصدك بإستخدام الـ Classes؟

تحياتي
إقتباس :أليست الـ LINQ أبطى من الـ ADO.Net؟
و ذلك حسب إعتقادي فأجوا منك تصحيحي لو سمحت.


الله أكبر ...
أنت عكست الموضوع خالص ...
هي من ناحية السرعه بتقدر تقول :
LINQ = طائرة حربيه مقاتلة من طراز F32 و ADO.Net = سيارة فيات مكركعه موديل 1980 ,


إقتباس :
بالإضافة إلى, ما قصدك بإستخدام الـ Classes؟
كل ملفاتك عبارة عن ملفات Dll يعني أستخدم Class Library
والله يا أبو إيهاب, لا أعرف ماذا أقول لك .. و لكن جزاك الله ألف خير و جعلك و إيانا من الذين ينفعون المسلمين في بلادنا ...

من الأن سأقرأ حول الـ LINQ و أحاول تحويل برامجي المهمة إلى LINQ مع قاعدة بيانات MS SQL Server.

جزاك الله خيراً أبو إيهاب و حفظك لنا.
تحياتي.
السلام عليكم

[COLOR="#2F4F4F"][COLOR="#B22222"]حبذا اخي ابو ايهاب
ان يتم برمجة ذات الشي ( اسماء المواد) وبذات الطريقة ( شاشة عليها جريد فيو، تستعرض اسماء المواد، وعليها ازرار اضافة - حذف - تعديل )
ب LinQ to SQl[/COLOR]
[/COLOR]
وخصوصاً ان اسماء المواد عبارة عن جدول وحيد فيه عدة حقول بسيطة، ويمكن ان يكون هدا المثال فيه فائدة كثيرة لي وللاخوة في حال تم برمجته باستخدام
LinQ to SQl

فانا ما زلت اقرا وابحث بالموضوع، ومعظم الشروحات تكون على مشروع كبير ( عدة جداول)، الامر الذي يحدث ضياع.

والف شكر سلفا
السلام عليكم

اخي ابو ايهاب
سمعت نصيحتك وقرأت الكثيرعن كيفية استخدام LinQ

قمت بإعادة ذات المشروع البسيط ( اسماء المواد ) باستخدام تقنية LINQ

وقمت بمحاولة كتابة اول كود وهو المتعلق بالاضافة
[HTML]
Dim beda As New DB.Beda()
beda.Beda_Name = txt_beda.Text
beda.Shra_Price = txt_shra.Text
beda.Mabee_Price = txt_Mabee.Text
beda.Beda_Note = txt_Note.Text

DB.Bedas.InsertAllOnSubmit(beda)
DB.SubmitChanges()

MessageBox.Show("تم إضافة المستخدم", Text, MessageBoxButtons.OK, MessageBoxIcon.Information)

txt_beda.Text = ""
txt_Mabee.Text = ""
txt_shra.Text = ""
txt_Note.Text = [/HTML]

الا انه يعطي رسالة خطأ

ارجو تعديل المثال المرفق، والاشارة الى مكمن الخطأ

والف الف شكر
الصفحات : 1 2 3