09-06-18, 03:27 AM
السلام عليكم ورحمة الله ووبركاتة
كل عام وانتم بالف خير وصحة وسلامة
اخوتي الاعزاء
عندي مشروع خاص في المبيعات وقمت باكماله ووصلت الى مرحلة استعراض الفواتير السابقة في فورم خاص بها وهو فورم وظيفته عرض جميع الفواتير حيث يقوم هذا الفورم باستقبال البيانات من 4 اعمدة وهي ( جدول المندوبين ويأخذ منه فقط اسم المندوب و جدول العملاء وياخذ منه فقط اسم العميل وجدول الفواتير ويخأذ منه رقم الفاترة عنوان الفاتورة وتاريخ الفاتورة ومبلغ الفاتورة وجدول تفاصيل وياخذ منه الكمية واسم المادة )
قمت بكتابة هذا الكود ولكن لما اقم بالاستعراض بيظهر الداتا جريد فاضية وكانك لم تعطيها اي امر مع العلم اني قمت بأستدعاء الامر الخاص بعرضها في اللود فورم ولكن لا اعرف اين هي المشكلة الرجاء من الاخوان المساعدة في معرفة السبب وفقكم الله الكود كاتالي
بانتظار حلولكم وفقكم الله
علما البرنامج على فيجوال بيسك 2010 و mysql
كل عام وانتم بالف خير وصحة وسلامة
اخوتي الاعزاء
عندي مشروع خاص في المبيعات وقمت باكماله ووصلت الى مرحلة استعراض الفواتير السابقة في فورم خاص بها وهو فورم وظيفته عرض جميع الفواتير حيث يقوم هذا الفورم باستقبال البيانات من 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