[نور الهدى الهدى]

السلام عليكم

كيف يمكن ظهور الأرباح في الداتا قريد فيو

مرفقه مثال

[elgokr]

وعليكم السلام ورحمة الله وبركاته

الداتا جريد ما هو الا عرض جداول

ويتم عرض الجداول عن طريق القيمة التى ترسل له اذا كان يدوياً

او من خلال الاستعلام بقاعدة البيانات

ما تريد فعله بناءاً على الاستعلام ولتوضيح كود الاستعلام جمع االرباح

يتطلب معرفة كيف تم بناء الجداول لديك لجلب قيم المشتريات والمبيعات ثم استخراج الارباح منها

فكل ما تحتاج اليه هو جمع جميع عمليات المشتريات

وكذلك جمع جميع عمليات المبيعات

ثم طرح المشتريات من اجمالى المبيعات والمتبقى بالنهاية هو الربح

تحياتى لك

وتمنياتى لك التوفيق

[نور الهدى الهدى]

اخي elgokr مشكور علي الرد دائما والمساعدة

المطلوب عند استدعاء البيانات في الداتا قريد 

تكون النتيجة في عمود الرمز كالتالي


الشركة            القيمة                           الرمز

      1              500

     2              400             رمز الهبوط لان السعر أقل من الشركة الذي قبله

     3              450             رمز الارتفاع لا السعر أكتر من الشركة الذي قبله

[نور الهدى الهدى]

للرفع للرفع للرفع

[asemshahen5]

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       DataGridView1.Rows.Add(1, 100, 0)
       DataGridView1.Rows.Add(2, 200, 0)
       DataGridView1.Rows.Add(3, 250, 0)
       DataGridView1.Rows.Add(4, 200, 0)
       DataGridView1.Rows.Add(5, 300, 0)
       DataGridView1.Rows.Add(6, 100, 0)
       DataGridView1.Rows.Add(7, 100, 0)
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim ggg As Double = 0
       Dim ggg1 As Double = 0
       For i As Integer = 0 To DataGridView1.Rows.Count - 1
           If i > 0 Then
               ggg = DataGridView1.Rows(i - 1).Cells(1).Value
               ggg1 = DataGridView1.Rows(i).Cells(1).Value
               If ggg > ggg1 Then
                   DataGridView1.Rows(i).Cells(2).Value = "\/"
               ElseIf ggg < ggg1 Then
                   DataGridView1.Rows(i).Cells(2).Value = "/\"
               Else
                   DataGridView1.Rows(i).Cells(2).Value = "="
               End If
           End If
       Next
   End Sub

[نور الهدى الهدى]

المطلوب عند استدعاء البيانات في الداتا قريد 

تكون النتيجة اضافة عمود به رمز  ايقونة متل البورصة والاسعار كالتالي


الشركة            القيمة                           الرمز

      1              500

     2              400             رمز الهبوط لان السعر أقل من الشركة الذي قبله

     3              450             رمز الارتفاع لا السعر أكتر من الشركة الذي قبله

[asemshahen5]

أبدلي هذا "\/"      My.Resources.Up
       و هذا "/\" My.Resources.Down
       و هذا "="  My.Resources.Equal
أجعلي عامود الجدول DataGridViewImageColumn