بسم الله الرحمن الرحيم
تحية طيبة لأعضاء الفريق العربي للبرمجة وكل العاملين عليه
اخواني الأعزاء لقد انتهيت من عمل برنامج يحتوي على تقارير مبنية على Crystal Report 10 والحمد لله
لكل صدادفتني مشكلة وهي ان البرنامج عند انزاله على جهاز العميل لا تعمل شاشة التقارير وتعطي هذا الخطأ

بحثت ووجدت انه يجب عمل Setup لكي يعمل البرنامج ولكن للأسف لم تنجح المحاولات حتى التي كانت معروضة هنا بالمنتدى بائت كلها بالفشل لأن أغلبها مبنية كمثال على Access ، والداتا بيس التي استخدمها هي SqlServer2000 .
البرنامج كالتالي : الداتا بيس على جهاز السيرفر .
والبرنامج على اجهزة العملاء في الشبكة المحلية . حيث تحتوي هذه الأجهزة فقط على Framwork1.1 أو 2
والتقارير ايضا على اجهزة العملاء مع ملف EXE
الكود المبدأي الذي استخدمته كالتالي
Dim str1 As String Dim str2 As String str1 = "select * from MBill where Id='" & txtNum.Text & "'" str2 = "select * from DBill where MId='" & txtNum.Text & "'" Dim CrystalReport As New Report2 Dim _oCon As New SqlConnection _oCon.ConnectionString = "Data Source=10.0.0.2,1433;Network Library=DBMSSOCN;" _ & "Initial Catalog=rami;trusted_connection=no;User ID=User;Password=User" Dim ds As New DataSet Dim _adpt As New SqlDataAdapter _adpt.SelectCommand = New SqlCommand(str1) _adpt.SelectCommand.Connection = _oCon _adpt.Fill(ds, "MBill") _adpt.SelectCommand = New SqlCommand(str2) _adpt.SelectCommand.Connection = _oCon _adpt.Fill(ds, "DBill") CrystalReport.Database.Tables(1).SetDataSource(ds.Tables(0)) CrystalReport.Database.Tables(0).SetDataSource(ds.Tables(1)) CrystalReportViewer1.ReportSource = CrystalReport
هذا الكود يسبب بطأ في التنفيذ سأحلها بإستخدام thrding لاحقا بعد الإنتهاء من هذه المشكلة
راجياً المساعدة ولكم جزيل الشكر

