[sanyor77]

وعليكم السلام ورحمة الله وبركاته يمكنك حساب حاصل ضرب السعر والكمية في استعلام 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 لكل عنصر نص بالطريقة التالية:

1. لعرض السعر: قم بتعيين DataField إلى "Price".
   
2. لعرض الكمية: قم بتعيين DataField إلى "Quantity".
   
3. لعرض الإجمالي: قم بتعيين DataField إلى "Total".
   

بهذه الطريقة، ستظهر الأسعار والكميات والإجمالي في تقرير Data report بناءً على البيانات الموجودة في قاعدة البيانات الخاصة بك. لا تنسَ تعديل أسماء الجدول والأعمدة ومعلومات الاتصال بقاعدة البيانات حسب تطبيقك.