[ali_ahmed12]

(28-10-22, 01:13 AM)Taha Okla كتب :

(28-10-22, 01:06 AM)ali_ahmed12 كتب : لا انا عربي مسلم ورسولي سيد الخلق محمد انا في مرحلة تعلم اخ طه صحيح لست ملم بكل شي مثلا الان عملت محاوله من كود انه كميه تساوي صفر استغله في كود طباعه وهو جلب اكبر رقم فاتوره لكي اطبع منتجات في اخر فاتورة بدون تكرار لانه في سابق كانت تطبع اخر فاتوره مع موجود في مره سابقه هادي محاولتي في كود هل هيا صحيح او خاطئه هل تعلم انه قروب هدا رغم الرد متاخر لكن لاستسلم في محاولة وصول للمعلومة بارك الله فيك انك تساعد مجاني نادر ما تجد اشخاص يساعدوني مجانا هادي محاولتي كود طباعه 

كود :

Dim ct As String = "Select max(id_order) As maxOrders  from Tbl_Orderes Where ID_order = '" & TextBox2.Text & "'" ' اكبر رقم فاتورة
       '-----------------------------------------------------------------------------------
       Dim Cmd As SqlCommand = New SqlCommand(ct, Module1.con)
       Dim da As SqlDataAdapter = New SqlDataAdapter(Cmd)
       Dim dt2 As DataTable = New DataTable
       da.Fill(dt2)
       Dim qty2 As Integer
       qty2 = dt2.Rows(0)("maxOrders")

       Dim CR As New CrystalReport5
       CR.SetDataSource(qty2)
       'CR.SetParameterValue("@id", Me.DGV_PRODUCT.CurrentRow.Cells(0).Value.ToString())
       Form_print.CrystalReportViewer1.ReportSource = CR
       Form_print.Show()

من الاسم واضح أنك مسلم ..  وأسأل الله لك دوام التوفيق والهداية ..

ما دمت عربي  :
لماذا تسقط عنك أل التعريف في أغلب الكلمات التي تكتبها ؟؟!! ..

نحن عرب ونفخر بأننا الله أختصنا بأن تكون لغتنا هي اللغة التي نزل بها قرآننا العظيم ..
وأحزن على نفسي عندما أرى أعجمي ويتقن قواعد اللغة العربية أكثر مني ..

نسأل الله لك دوام التوفيق ..

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

كود :

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles print_invoice.Click


       Dim CR As New CrystalReport5
       Form_print.CrystalReportViewer1.ReportSource = CR
       Form_print.Show()

   End Sub

هدا استعلام تقرير

كود :

ALTER  proc [dbo].[Get_order_detils_for_print]  

as
SELECT Tbl_Order_detils.ID_product
     ,Tbl_Orderes.Des
      ,Tbl_Orderes.ID_Order
        ,order_date
        ,salesman
        ,TBL_Customers.ID
        ,TBL_Customers.FullName
        ,TBL_Customers.TEL
        ,PRODUCTS.ID_product
        ,PRODUCTS.label
     ,Tbl_Order_detils.Qty
     ,Tbl_Order_detils.price
     ,Tbl_Order_detils.Amount
 FROM [dbo].[Tbl_Order_detils]
inner join Tbl_Orderes
on Tbl_Orderes.ID_Order=Tbl_Order_detils.ID_Order
inner join TBL_Customers
on TBL_Customers.ID=Tbl_Orderes.ID_CUSTOMER
inner join PRODUCTS
on PRODUCTS.ID_product=Tbl_Order_detils.ID_product