سلام عليكم ورحمت الله وبراكته واطيب تحياتي الى كل اعضاء المنتدى
في البدايه سوف اقوم بوصف المشكله التى تواجهني
انا اعمل على الفجول بيسك 2010 مع كريستال ريبورت
المشكله مع التقرير اني قمت بتصميمه بشكل جيد بحيث يناسب ورقه التى يراد الطباعه عليه
الورقه هي اجراء اداري مطبوعه مسبقا ومصممها وعليا انا ان اقوم بتعبية الحقول فيها بشكل صحيح
المشكله حيث اني لو اردت التعمل مع حقل واحد يعمل بشكل جيد على ورقه واحده لكني اريد طباعه على مجموعه من الاوراق
يعني نفس القلب الذي صممته اريده ان تتم تعبيته بالبيانات اكثر من مره وان اعطي امر طباعه يطبع .
انا اتعمل مع القلب عن طريق parameters
وهذا هو الكود
With Me.CrystalReportViewer1
Try
Dim crparmx As New CrystalReport1
Dim dt As DataTable = sql.find("select * from bl ")
For Each dr In dt.Rows
crparmx.SetParameterValue(0, dr.item(1))
crparmx.SetParameterValue(4, dr.Item(2))
crparmx.SetParameterValue(2, dr.Item(4))
crparmx.SetParameterValue(3, dr.Item(5))
crparmx.SetParameterValue(1, dr.Item(3))
Next
.ReportSource = crparmx
.Refresh()
Catch ex As Exception
End Try
End Withفي هذه الحال يظهر لي التقرير صفحه واحده وهي عباره عن اخر حقل في الجدول bl
هناك شيء انا افتقده في هذا الكود لكن لا اعرفه ارجوا منكم المساعده في ايجاده