تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب طباعة 4 تقارير فى ان واحد ورا بعضهم فى نموذج طباعه
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب

انا عندى تقارير كريستال ريبورت

4 تقارير

محتاج كود لطباعة التقارير الاربعه وره بعض يعنى مثلا
التقرير الاول يظهر فى صفحة الطباعة الاولى
التقرير الثانى يظهر فى السفحة الثانية ...... وهاكذا

وهذا الكود الذى استخدمه
PHP كود :
Using DAdp3 As New SqlDataAdapter("SELECT * FROM [hsabmlz1] WHERE  [tetname] = @name AND [date1] BETWEEN @date1 AND @date2 "con)

            
DAdp3.SelectCommand.Parameters.AddWithValue("@name"txttech.Text)
            
DAdp3.SelectCommand.Parameters.AddWithValue("@date1"date1.Value.Date)
            
DAdp3.SelectCommand.Parameters.AddWithValue("@date2"date2.Value.Date)
            
Using MyDs2 As New DataSet
                MyDs2
.Clear()
                
DAdp3.Fill(MyDs2"hsabmlz1")
                
Dim rpt As New hsabmlzama
                rpt
.Load()
                
rpt.SetDataSource(MyDs2.Tables("hsabmlz1"))


                
With crConnectionInfo
                    
.ServerName "192.168.0.101"
                    
.DatabaseName "LibraryData"
                    
.UserID "sa"
                    
.Password "ahmed"
                
End With
                CrTables 
rpt.Database.Tables
                
For Each CrTable In CrTables
                    crtableLogoninfo 
CrTable.LogOnInfo
                    crtableLogoninfo
.ConnectionInfo crConnectionInfo
                    CrTable
.ApplyLogOnInfo(crtableLogoninfo)
                
Next

                FrmPr
.CrystalReportViewer1.ReportSource rpt
                FrmPr
.CrystalReportViewer1.ShowGroupTreeButton False
                FrmPr
.CrystalReportViewer1.RightToLeft Windows.Forms.RightToLeft.Yes
                FrmPr
.CrystalReportViewer1.Zoom(90%)
                
FrmPr.CrystalReportViewer1.Refresh()
                
FrmPr.CrystalReportViewer1.Show()
                
FrmPr.ShowDialog()
                
DAdp3.Dispose()
                
con.Close()
            
End Using
        End Using 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#2
اى موجيب يا شباب
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة يا شباب ابغي عمل لعبة خفيفة اون لاين 0theghost0 0 23 اليوم, 06:28 AM
آخر رد: 0theghost0
Exclamation [VB.NET] مشكلة بسيطة في طباعة Textbox CoderMM 1 56 12-12-17, 09:54 PM
آخر رد: طالب برمجة
  [VB.NET] كيف يمكن الضغط علي خلية او سطر في كريستال ريبورت يفتح نموذج ما للتعديل علية السيد الجوهري 0 29 12-12-17, 12:33 PM
آخر رد: السيد الجوهري
  [VB.NET] طريقة طباعة سجل محدد من الداتا قريد فيو larbihamri 6 136 08-12-17, 12:55 PM
آخر رد: larbihamri
  ارجو المساعدة في طباعة التقرير samawi 6 167 02-12-17, 01:11 AM
آخر رد: samawi
  مطلوب رأيكم في (فكرة حصر برنامج لجهاز واحد فقط) سعود 4 135 20-11-17, 01:55 PM
آخر رد: sendbad100
  [VB.NET] فتح نموذج داخل نموذج اخر مع ترك هامش جانبي لاضافات الازرار عليه mohammed.atallah 1 98 16-11-17, 01:48 PM
آخر رد: أحمد النجار
  [VB.NET] كيف انشيء تقارير احصائية ؟ محمد بوقزاحة 1 96 12-11-17, 02:15 PM
آخر رد: أبوبكر سويدان
  [VB.NET] تقارير وإحصائيات vb.net مع قاعدة بيانات SQL2008R2 محمد بوقزاحة 0 122 12-11-17, 01:10 PM
آخر رد: محمد بوقزاحة
  [VB.NET] طباعة اكتر من نسخة محمد اسماعيل 2 116 05-11-17, 07:53 PM
آخر رد: a.ahmed

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم