还是“该报表不包含表”的问题

        Dim DS2 As DataSet2 = New DataSet2

        DS2.Clear()

        Dim DS2DT1 As DataSet2.DataTable1DataTable = New DataSet2.DataTable1DataTable

        For i As Integer = 0 To MainForm.SalesView.Rows.Count - 1

            Dim dr As DataRow = DS2DT1.NewRow

            For j As Integer = 0 To MainForm.SalesView.ColumnCount - 1

                dr(j) = MainForm.SalesView.Rows(i).Cells(j).Value

            Next

            DS2DT1.Rows.Add(dr)

        Next

 

        Dim MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim P As String = Application.StartupPath & "\Report.rpt"

        MyReport.Load(P)

        MyReport.SetDataSource(DS2)

        CRV.ReportSource = MyReport