أخواني الأعزاء المشكلة تحدث معي فقط في فيجوال بيسك 6.0 لكن بالدوت نت نفس الكود شغال و بنتائج صحيحة
الكود هو كالآتي
Private Sub CmdPrint_Click()
'On Error Resume Next
Dim FrmRep As New FrmReps
Dim custrep As New CustReps
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & "VanSales.mdb;" & "Persist Security Info=False"
rs.Open "SELECT * FROM CustomerDetails WHERE CustomerCode LIKE'" & Trim(CustomerCode.Text) & "' ", con, adOpenDynamic, adLockBatchOptimistic
custrep.Database.SetDataSource (rs)
custrep.pap rs
FrmRep.CRViewer.ReportSource = custrep
FrmRep.Show
con.Close
مع العلم إني أستخدم واحد
crystal viewer
فقط وواحد فورم للتقارير
أفيدزني و جيزتم خيراً