منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : ظهور الأرباح في الداتا قريد فيو
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

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

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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق
اخي elgokr مشكور علي الرد دائما والمساعدة

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

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


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

      1              500

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

     3              450             رمز الارتفاع لا السعر أكتر من الشركة الذي قبله
للرفع للرفع للرفع
كود :
   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             رمز الارتفاع لا السعر أكتر من الشركة الذي قبله
أبدلي هذا "\/"      My.Resources.Up
       و هذا "/\" My.Resources.Down
       و هذا "="  My.Resources.Equal
أجعلي عامود الجدول DataGridViewImageColumn