Dim ds AsNew Data.DataSet
Dim dt AsNew DataTable
ds.ReadXml(Application.StartupPath + "\XMLArrivo.xml")
ds.WriteXmlSchema(Application.StartupPath + "\XMLArrivo2.xml")
Dim dr() As Data.DataRow = ds.Tables("ArrivoTrasporto").Select("Area = " + txtDaGiorno.Text)
 
If dr.Length() <> 0 Then
dt = DataRowToDataTable(dr, ds.Tables("ArrivoTrasporto").Clone())
DataGridView1.DataSource = dt
Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
Report.Load("D:\Progetti\Mose\Mose\crystalreport3.rpt")

Report.SetDataSource(ds)
Report.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
CrystalReportViewer1.ReportSource = Report
Else
MessageBox.Show("NON SONO STATE TROVATI DATI PER I FILTRI INSERITI")
EndIf
EndSub