[احمد عبد الحكيم]

بسم الله الرحمن الرحيم
السلام عليكم شباب

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

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 


[احمد عبد الحكيم]

اى موجيب يا شباب