+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن حل مشكله (/showthread.php?tid=44168)
ممكن حل مشكله - ali_ahmed12 - 24-10-22
لدي اجراء مخزن مصدر تقرير
في طباعه يطبع كل منتجات في قريد فيو مع منتجات سابقه لاريد طباعته اريد طباعه موجود في قريد فيو فقط
هدا اجراء مخزن
كود :
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كود :
ALTER proc [dbo].[Get_order_detils_for_print]
@id int
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
where Tbl_Order_detils.ID_Order=@idكود :
Dim CR As New CrystalReport5
CR.SetParameterValue("@id", Me.DGV_PRODUCT.CurrentRow.Cells(0).Value.ToString())
Form_print.CrystalReportViewer1.ReportSource = CR
Form_print.Show()