السلام عليكم ورحمة الله وبركاته
إخواني و أساتذتي الأعزاء
أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي ؟؟
عندي عمود في قاعدة البيانات به سعر الصنف 4 : 6 : 8 : 10 : 12
و عمود ثاني في قاعدة البيانات به كمية الصنف 10 : 20 : 30 : 40 : 50
أريد أن يظهر في التقرير Data report
هل من طريقة
أرجو المساعدة
مرفق صورة للتوضيح
السلام عليكم
ممكن ترفق البرنامج
بالتوفيق
هذا مرفق لما أريد التعديل عليه
(21-03-23, 11:47 PM)hamada salah90 كتب : [ -> ]هذا مرفق لما أريد التعديل عليه
هل جربت هذا المثال قبل أن ترفعه ؟؟
هل لما تضغط ع زر التقرير بيعرض لك التقرير ؟؟ أو في شي نسيت ترفقه مع المشروع وراح يعطي رسالة خطأ لعد وجود هذا الشيء؟؟
أنشء مشروع جديد وضع فيه الأكواد التي تسبب المشكلة
وجربه قبل أن ترفعه .. إذا كان يعمل كما يعمل لديك وقت المشكلة : قم وقتها برفعه، وليس أن ترفعه بدون أن ترفع الفورم الذي فيه المشكلة..
لو ترفع مشروعك بدون ما تعتمد على أزرار وأدوات من خارج الفيجول بيزك أفضل،
حتى يستطيع الشخص اللي بيفكر يساعدك لما ينزل عنده الكود : يشغله ويصل لمكان المشكلة بدون ما يحتاج يفكر بالمشاكل الثانية
الناتجة عن نقص الأدوات أو الأكواد التي لم ترفقها ويصل لمكان المشكلة بالتحديد ويعالجها هي دون ما يضيع وقته على اصلاح المشاكل
الثانية ويضيع وقته ثم يمل ويتركك بنصف الطريق فلا هو ساعدك ولا أنت استفدت من طول انتظارك لمن يأتي ويحل المشكلة ...
(22-03-23, 04:09 AM)Taha Okla كتب : [ -> ] (21-03-23, 11:47 PM)hamada salah90 كتب : [ -> ]هذا مرفق لما أريد التعديل عليه
هل جربت هذا المثال قبل أن ترفعه ؟؟
هل لما تضغط ع زر التقرير بيعرض لك التقرير ؟؟ أو في شي نسيت ترفقه مع المشروع وراح يعطي رسالة خطأ لعد وجود هذا الشيء؟؟
أنشء مشروع جديد وضع فيه الأكواد التي تسبب المشكلة
وجربه قبل أن ترفعه .. إذا كان يعمل كما يعمل لديك وقت المشكلة : قم وقتها برفعه، وليس أن ترفعه بدون أن ترفع الفورم الذي فيه المشكلة..
لو ترفع مشروعك بدون ما تعتمد على أزرار وأدوات من خارج الفيجول بيزك أفضل،
حتى يستطيع الشخص اللي بيفكر يساعدك لما ينزل عنده الكود : يشغله ويصل لمكان المشكلة بدون ما يحتاج يفكر بالمشاكل الثانية
الناتجة عن نقص الأدوات أو الأكواد التي لم ترفقها ويصل لمكان المشكلة بالتحديد ويعالجها هي دون ما يضيع وقته على اصلاح المشاكل
الثانية ويضيع وقته ثم يمل ويتركك بنصف الطريق فلا هو ساعدك ولا أنت استفدت من طول انتظارك لمن يأتي ويحل المشكلة ...
آسف أخي الغالي
لكن المقصد ألا أشتت حضراتكم عن المقصود من كلامي فقط
قمت برفع مثال آخر بسيط جدا
عدل كود عرض التقرير إلى الكود التالي :
كود :
Call ConnectSanfData3
'=========================
If rsSanfData3.State = adStateOpen Then rsSanfData3.Close
'code sanfName HaliRsid gomlaGomla , Amount = HaliRsid * gomlaGomla
Dim strSQL1 As String
strSQL1 = "Code,sanfName,HaliRsid,gomlaGomla ,[HaliRsid]*[gomlaGomla] as Amount"
rsSanfData3.Open "select " & strSQL1 & " from [SanfData] where [HaliRsid] > 0 order By [code] ASC", dbADODB2, adOpenStatic, adLockReadOnly
Set DRPTsanfTaklfa.DataSource = rsSanfData3
DRPTsanfTaklfa.Show
Exit Sub
'=========================
[/code]
وفي صفحة التقرير غير اسم الحقل DataField من (
gomlaGomla) لـ الأداة Text3 لـ (Amount)
=======
الشرح بإختصار :
في جملة الـ SQL قمنا بتبديل النجمة (*) بأسماء الحقول التي نريد عرضها ضمن التقرير فقط
وأضفنا عليها حقل جديد(حقل افتراضي) أسميناه (Amount) وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..
(22-03-23, 10:23 PM)Taha Okla كتب : [ -> ]عدل كود عرض التقرير إلى الكود التالي :
كود :
Call ConnectSanfData3
'=========================
If rsSanfData3.State = adStateOpen Then rsSanfData3.Close
'code sanfName HaliRsid gomlaGomla , Amount = HaliRsid * gomlaGomla
Dim strSQL1 As String
strSQL1 = "Code,sanfName,HaliRsid,gomlaGomla ,[HaliRsid]*[gomlaGomla] as Amount"
rsSanfData3.Open "select " & strSQL1 & " from [SanfData] where [HaliRsid] > 0 order By [code] ASC", dbADODB2, adOpenStatic, adLockReadOnly
Set DRPTsanfTaklfa.DataSource = rsSanfData3
DRPTsanfTaklfa.Show
Exit Sub
'=========================
[/code]
وفي صفحة التقرير غير اسم الحقل DataField من (gomlaGomla) لـ الأداة Text3 لـ (Amount)
=======
الشرح بإختصار :
في جملة الـ SQL قمنا بتبديل النجمة (*) بأسماء الحقول التي نريد عرضها ضمن التقرير فقط
وأضفنا عليها حقل جديد(حقل افتراضي) أسميناه (Amount) وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..
سوف اجرب شكرا لك اخي الغالي
(22-03-23, 10:23 PM)Taha Okla كتب : [ -> ]عدل كود عرض التقرير إلى الكود التالي :
كود :
Call ConnectSanfData3
'=========================
If rsSanfData3.State = adStateOpen Then rsSanfData3.Close
'code sanfName HaliRsid gomlaGomla , Amount = HaliRsid * gomlaGomla
Dim strSQL1 As String
strSQL1 = "Code,sanfName,HaliRsid,gomlaGomla ,[HaliRsid]*[gomlaGomla] as Amount"
rsSanfData3.Open "select " & strSQL1 & " from [SanfData] where [HaliRsid] > 0 order By [code] ASC", dbADODB2, adOpenStatic, adLockReadOnly
Set DRPTsanfTaklfa.DataSource = rsSanfData3
DRPTsanfTaklfa.Show
Exit Sub
'=========================
[/code]
وفي صفحة التقرير غير اسم الحقل DataField من (gomlaGomla) لـ الأداة Text3 لـ (Amount)
=======
الشرح بإختصار :
في جملة الـ SQL قمنا بتبديل النجمة (*) بأسماء الحقول التي نريد عرضها ضمن التقرير فقط
وأضفنا عليها حقل جديد(حقل افتراضي) أسميناه (Amount) وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..
مشكوووووووووووووووور جدا أخي الغالي
وعليكم السلام ورحمة الله وبركاته يمكنك حساب حاصل ضرب السعر والكمية في استعلام SQL وعرض النتيجة في تقرير Data report. سأشرح كيفية القيام بذلك. أولاً، ستحتاج لتعديل استعلام SQL الخاص بك بحيث يحسب حاصل ضرب السعر والكمية ويضيفه كحقل جديد في النتائج. قد يبدو الاستعلام مشابهًا لما يلي:
كود :
SELECT Price, Quantity, Price * Quantity as Total FROM YourTableName
حيث يتم استبدال "YourTableName" باسم الجدول الخاص بك في قاعدة البيانات. ثم، في تقرير Data report، قم بإضافة عنصر نص جديد (Text) لعرض الإجمالي وقم بتعيين خاصية DataField الخاصة به إلى "Total"، والذي هو اسم الحقل الذي أضفناه في الاستعلام السابق. بهذه الطريقة، سيتم حساب حاصل ضرب السعر والكمية وعرضه في التقرير Data report.
قمت بتعديل الكود حسب طلبك، كما يلي:
كود :
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
' قم بتعديل هذه السطور للاتصال بقاعدة البيانات الخاصة بك
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourDatabase.mdb;"
cnn.Open
' استعلام SQL لجلب السعر والكمية وحساب الإجمالي
strSQL = "SELECT Price, Quantity, Price * Quantity as Total FROM YourTableName"
' تنفيذ الاستعلام وتخزين النتائج في مجموعة السجلات rs
rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly
' ربط مصدر البيانات في تقرير DataReport بمجموعة السجلات rs
Set DataReport1.DataSource = rs
' عرض التقرير
DataReport1.Show
في تقرير Data report، قم بإضافة عناصر النص (Text) لعرض السعر والكمية والإجمالي. وقم بتعيين خاصية DataField لكل عنصر نص بالطريقة التالية:
- لعرض السعر: قم بتعيين DataField إلى "Price".
- لعرض الكمية: قم بتعيين DataField إلى "Quantity".
- لعرض الإجمالي: قم بتعيين DataField إلى "Total".
بهذه الطريقة، ستظهر الأسعار والكميات والإجمالي في تقرير Data report بناءً على البيانات الموجودة في قاعدة البيانات الخاصة بك. لا تنسَ تعديل أسماء الجدول والأعمدة ومعلومات الاتصال بقاعدة البيانات حسب تطبيقك.