01-03-16, 07:42 PM
(آخر تعديل لهذه المشاركة : 01-03-16, 07:52 PM {2} بواسطة احمد عبد الحكيم.)
بسم الله الرحمن الرحيم
السلام عليكم شباب
انا عندى تقارير كريستال ريبورت
4 تقارير
محتاج كود لطباعة التقارير الاربعه وره بعض يعنى مثلا
التقرير الاول يظهر فى صفحة الطباعة الاولى
التقرير الثانى يظهر فى السفحة الثانية ...... وهاكذا
وهذا الكود الذى استخدمه
السلام عليكم شباب
انا عندى تقارير كريستال ريبورت
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
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين