السلام عليكم ورحمة الله وبركاته...
كيف حالكم واسعد الله ايامكم ..
والله يسعدكم في الدنيا والاخرة
الحمدلله لقد اتممت برنامجي ولكن ظهرت لي مشكله في عرض التقارير لم تكن في الحسبان وتتمثل بالاتي :
عندما اكون في بيئة الفيجوال بيسك دوت نت واضغط على اظهار تقرير معين يظهر التقرير طبيعي ومافيش ايش مشكله ... طبعا في جهازي
ولما علمت للبرنات (biuld) وعملت له ايقونه تنفيذيه في سطح المكتب ... اشغل البرنامج ويشتغل البرنامج تمام ولكن عندما اضغط على زر التقارير لاضهارها تطلع مشكلة ( ارفق لكم صورة لرسالة الخطاء .
على فكرة ايضا عندما شغلت البرنامج في جهاز اخر اشتغل البرنامج كويس بس التقارير لاتفتح معاي بالرغم اننا في بيئة الفيجوال بيسك دوت نت واحيانا يطلب مني طلب كلمة المرور ... بالرغم انه لما صممته في جهازي لم تطلع الرسالة واشتغل كويس
يعني المشكله باختصار عدم ظهور التقارير في النسخة التنفيذية
وايضا عند نقل البرنامج الى جهاز اخر وتشغيل البرنامج لاتستجيب التقارير
تاخر في استعراض التقارير جدا جدا
ارفق اليكم الكود الخاص بعرض التقرير وايضا صورة للخطأ
Dim cn As New SqlConnection() If cn.State = ConnectionState.Closed Then cn.ConnectionString = "Data Source=.;Initial Catalog=data;Integrated Security=True" cn.Open() End If Dim cmd As New SqlCommand Dim dr As SqlDataReader cmd.Connection = cn cmd.CommandType = CommandType.Text Dim s As String s = "SELECT * FROM Vacations " s = s & "WHERE Vacations.[var_emp_no]=" & Integer.Parse(cb1.SelectedValue.ToString()) 'And orders.order_Receipt_date BETWEEN datetime.parse(text1.text) AND datetime.parse(text2.text) cmd.CommandText = s dr = cmd.ExecuteReader() 'Me.Hide() Dim ddr As DataTable = New DataTable() Dim countcolumn As Integer = 0 While True Try Dim st As String = dr.GetName(countcolumn).ToString() countcolumn = countcolumn + 1 Catch ex As Exception Exit While End Try End While For index As Integer = 0 To countcolumn - 1 ddr.Columns.Add(dr.GetName(index).ToString()) Next While (dr.Read()) Dim datar As DataRow = ddr.NewRow() For index As Integer = 0 To countcolumn - 1 datar.Item(index) = dr.Item(index) Next ddr.Rows.Add(datar) datar.AcceptChanges() End While dr.Close() cmd = New SqlCommand cmd.Connection = cn cmd.CommandType = CommandType.Text s = "SELECT Names.Name FROM Names WHERE Names.[data_id]=" & Integer.Parse(cb1.SelectedValue.ToString()) cmd.CommandText = s dr = cmd.ExecuteReader() dr.Read() Dim oRpt As ReportDocument = New ReportDocument() oRpt.Load(Application.StartupPath.ToString() & "\" & "rptholiday.rpt") oRpt.SetDataSource(ddr) oRpt.SetParameterValue("Name", dr.Item(0).ToString()) dr.Close() 'repdataorders.subdataorder1.SetDataSource(ddr) repholedy.CrystalReportViewer1.ReportSource = oRpt repholedy.ShowDialog() 'repdataorders.subdataorder1.Refresh() ''re.SetDataSource()عفوا هناك خطاء في ارفاق احدى الصور
