+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25529)
رسالة خطأ اثناء الطباعة - Osama Bayoumy - 27-06-18
برجاء المساعدة فى وجود رسالة خطأ تظهر اثناء الطباعة
كود الطباعة
كود :
Public Sub MyPrint()
On Error Resume Next
REM ///////////////////////////// //////////////////////////////////
CRV1.ReportSource = New CryBill
Dim AdView As New SqlDataAdapter("SELECT * FROM View_Bill where Bil2_Shift=" & Val(txtShift.Text) & " And Bil2_No=" & Val(txtNo.Text) & "", Conn)
'--------------------------------------------------------------------
Conn.Open()
DsView.Clear()
AdView.Fill(DsView, "View_Bill")
Conn.Close()
'===================================================================
Dim rpt As New CryBill
rpt.SetDataSource(DsView)
Me.CRV1.ReportSource = rpt
Me.CRV1.RefreshReport()
rpt.PrintToPrinter(1, False, 0, 0)
rpt.Close()
rpt.Dispose()
rpt.Refresh()
RE: رسالة خطأ اثناء الطباعة - elgokr - 28-06-18
ما هى رسالة الخطاء التى تظهر معك
واضاً هل Bil2_Shif و Bil2_No قيمة رقم فقط
اى انه int فى قاعدة البيانات
تحياتى لك
وتمنياتى لك التوفيق
RE: رسالة خطأ اثناء الطباعة - Osama Bayoumy - 28-06-18
اشكرك على اهتمامك
Bil2_Shift و Bil2_No هما رقم فقط
بصراحة مش عارف ارفع الصورة عاوز الرابط ادخلة الرابط مش بيظهر صورة
بس اخر الرسالة
Invalid argument for database
RE: رسالة خطأ اثناء الطباعة - elgokr - 28-06-18
قم باستخدام هذا الموقع
تحياتى لك