أخواني الأعزاء المشكلة تحدث معي فقط في فيجوال بيسك 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)
FrmRep.CRViewer.ReportSource = custrep
FrmRep.Show
con.Close
أرجو المساعدة في عرض المطلوب فقط
الــ
Query
بيجيب البيانات الكاملة من غير إختيار مع العلم بأن نفس الكود يعمل صحيحاً في
.net 2005