مشكلة أثناء فتح التقرير وهو عدم ظهور البيانات

الاخوة الزملاء

لقد صممت تقرير لعرض مدفوعات المورد وقمت بعرض التقرير بعد تصميمة ولا يوجد في مشكلة في العرض لكن أثناء عرض التقرير في RunTime يقوم بعرض بيانات Storedprocedure الثاني ولا يقوم بعرض بيانات Stored procedure الاول

مرفق صورة للتقرير توضح عرض البيانات أثناء التصميم بشكل سليم 100%

مرفق صورة من التقرير توضح عدم عرض بيانات معينة في التقرير (مع العلم ان مصدر التقرير عدد 2 Stored procedure ) والاجراء الثاني هو الذي تظهر بياناتة أثناء Run Time

مرفق كود الطباعة

 Private Sub Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Print.Click
        Try

            sqlcon.Open()

            Dim cmd As New SqlCommand("Rpt_SuppliersStatment", sqlcon)
            cmd.CommandType = CommandType.StoredProcedure
            Dim cmd2 As New SqlCommand("Rpt_SuppliersStatmentDeatil", sqlcon)
            cmd2.CommandType = CommandType.StoredProcedure

            Dim _TexPrint1 As String = Convert.ToString(Me.TexFromSup.Text)
            Dim _TexPrint2 As String = Convert.ToString(Me.TexToSup.Text)

            cmd.Parameters.Clear()
            cmd2.Parameters.Clear()

            cmd.Parameters.Add("@FSupid", SqlDbType.NVarChar, (50)).Value = _TexPrint1
            cmd.Parameters.Add("@TSupid", SqlDbType.NVarChar, (50)).Value = _TexPrint2
            cmd2.Parameters.Add("@FSupid", SqlDbType.NVarChar, (50)).Value = _TexPrint1
            cmd2.Parameters.Add("@TSupid", SqlDbType.NVarChar, (50)).Value = _TexPrint2

            Dim dr As SqlDataReader
            Dim dr2 As SqlDataReader
            dr = cmd.ExecuteReader()
            dt1.Load(dr)
            dr.Close()

            dr2 = cmd2.ExecuteReader()
            dt2.Load(dr2)
            dr2.Close()
            sqlcon.Close()
            SuppStatment.Show()
            Me.Dispose()
            ' End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        sqlcon.Close()
    End Sub

 Private Sub SuppStatment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rpt As New Rpt_SupAcc
        rpt.Load(Application.StartupPath & "\Reports\" & "Rpt_SupAcc.rpt")

        rpt.Database.Tables(0).SetDataSource(PrintSuppliersAccount.dt1)
        rpt.Database.Tables(1).SetDataSource(PrintSuppliersAccount.dt2)

        rpt.SetDataSource(dt)
        Me.SupStatView.ReportSource = rpt

        'CrystalReportViewer1.Zoom(1)
        SupStatView.DisplayGroupTree = False
        SupStatView.Refresh()
        Me.MdiParent = MDI_Parent
        SupStatView.Show()
    End Sub

أتمني المساعدة في هذه المشكلة