ช่วยด้วยครับ ส่งค่าจาก List View ไปยัง CrystalReport แล้วมันแสดงข้อมูลแค่แถวสุดท้ายน่ะครับ

If lv_pro.Items.Count < 1 Then
            Exit Sub
        End If
        Dim i As Integer = 0
        For i = 0 To lv_pro.Items.Count - 1
            Dim rpt As New ReportPro
            rpt.SetParameterValue("id", lv_pro.Items(i).SubItems(0).Text)
            rpt.SetParameterValue("name", lv_pro.Items(i).SubItems(1).Text)
            rpt.SetParameterValue("type", lv_pro.Items(i).SubItems(2).Text)
            rpt.SetParameterValue("price", lv_pro.Items(i).SubItems(3).Text)
            rpt.SetParameterValue("pricesale", lv_pro.Items(i).SubItems(4).Text)
            rpt.SetParameterValue("Quantity", lv_pro.Items(i).SubItems(5).Text)

            RePro.CrystalReportViewer1.ReportSource = rpt
            RePro.CrystalReportViewer1.Refresh()
        Next
        RePro.Show()