[سؤال] شباب طباعة 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 