[hamada salah90]

(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)  وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..

مشكوووووووووووووووور   جدا أخي الغالي