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