تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار في هذا الكود
#1
السلام  عليكم  ورحمة الله  ووبركاتة  

  كل  عام  وانتم بالف  خير  وصحة  وسلامة  

  اخوتي  الاعزاء  

  عندي  مشروع  خاص  في المبيعات  وقمت باكماله  ووصلت  الى  مرحلة  استعراض  الفواتير  السابقة في  فورم  خاص بها  وهو  فورم  وظيفته  عرض  جميع الفواتير  حيث يقوم  هذا الفورم باستقبال  البيانات  من 4 اعمدة  وهي  ( جدول  المندوبين  ويأخذ  منه  فقط  اسم المندوب  و جدول  العملاء  وياخذ  منه فقط  اسم العميل  وجدول  الفواتير ويخأذ  منه رقم الفاترة  عنوان الفاتورة  وتاريخ الفاتورة ومبلغ الفاتورة  وجدول  تفاصيل  وياخذ  منه  الكمية واسم المادة  )  
قمت بكتابة  هذا الكود  ولكن لما اقم بالاستعراض  بيظهر  الداتا جريد فاضية  وكانك  لم  تعطيها اي  امر  مع العلم  اني قمت بأستدعاء الامر الخاص بعرضها في  اللود  فورم  ولكن  لا  اعرف اين  هي المشكلة  الرجاء  من الاخوان  المساعدة في  معرفة  السبب  وفقكم  الله  الكود  كاتالي  

كود :
   Dim DT_tb_orders As New DataTable

    Public Sub Load_tb_orders(ByVal DGV_tb_orders As DataGridView, ByVal Meform As Form)
        DGV_tb_orders.DataSource = Nothing
        DGV_tb_orders.Rows.Clear()
        DT_tb_orders.Clear()
        Dim Cmd As New MySqlCommand("Select tb_orders.ID_ORDERS as التسلسل,tb_orders.ODERS_DATE ,tb_orders.DIS_ORDER,mu.MU_NAME,mem.C_NAME,order_dtl.ID_ORDERS,order_dtl.AMONT, count( order_dtl.ID_PRO) From tb_orders ,order_dtl ,mu ,mem Where tb_orders.ID_ORDERS = order_dtl.ID_ORDERS And tb_orders.ID_MU = mu.ID_MU And tb_orders.ID_CU = mem.C_NAME group by  tb_orders.ID_ORDERS,tb_orders.ODERS_DATE,tb_orders.DIS_ORDER,tb_orders.ID_MU,mem.C_NAME ", con) '
        Try
            If Con.State = 1 Then Con.Close()
            Con.Open()
            DT_tb_orders.Load(Cmd.ExecuteReader)
            Con.Close()
            Cmd = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Con.Close()
        End Try
        If DT_tb_orders.Rows.Count <> 0 Then
            With DGV_tb_orders
                .DataSource = DT_tb_orders

                Meform.BindingContext(DT_tb_orders).Position = Meform.BindingContext(DT_tb_orders).Count - 1
            End With
        End If
بانتظار  حلولكم  وفقكم  الله  
علما  البرنامج  على  فيجوال بيسك  2010  و  mysql
((  لا أحد يمكن له  ان يحدد متى يموت ولكن هو  من يقدر  ان يحدد  كيف يعيش بعد الموت فالحياة والمماة بيد الله  لكن  حياتك بعد الموت بيدك  فلا  تندم  على شيء فاتك في الدنيا لربما يرزقك  الله  خير  منه في  الاخرة  او لربما  دفع الله  عنك به  شيأ  اعظم  ...  تلك  هي  مشيئة الله  عز  وجل )) 
الرد }}
تم الشكر بواسطة:
#2
قم باضافة الكود التالى
كود :
DGV_tb_orders.Refresh()

وباذن الله سيعمل معك بدون اى مشكلة

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: عبد العزيز البسكري , sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم