ปัญหาการออกรายงาน crystal report ออกใบสั่งซื้้อ มันจำค่าที่ใส่ได้ค่าเดียว คือ ค่าสุดท้าย หนูต้องทำไงค่ะ ที่ให้มันเก็บ ค่าทั้งหมด

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Class1.orid = txt_or_id.Text
        Class1.ordate = dtp_ordate.Text
        Class1.nameEmp = hdname.Text
        For i As Integer = 0 To ls.Items.Count - 1
            Class1.num = ls.Items(i).SubItems(0).Text
            Class1.booktype = ls.Items(i).SubItems(3).Text
            Class1.bookName = ls.Items(i).SubItems(5).Text
            Class1.auther = ls.Items(i).SubItems(6).Text
            Class1.jecketprice = ls.Items(i).SubItems(7).Text
            Class1.price = ls.Items(i).SubItems(8).Text
            Class1.unit = ls.Items(i).SubItems(9).Text
            Class1.amount = ls.Items(i).SubItems(10).Text
        Next i
        Form2.Show()

Public Class Class1
    Public Shared eId As String
    Public Shared comid As String
    Public Shared bookName As String
    Public Shared num As String
    Public Shared booktype As String
    Public Shared mid As String
    Public Shared orid As String
    Public Shared ordate As Date
    Public Shared nameEmp As String
    Public Shared auther As String
    Public Shared jecketprice As Integer
    Public Shared price As Integer
    Public Shared unit As Integer
    Public Shared amount As Integer

End Class

 Dim orid As New ParameterDiscreteValue
        Dim porid As New CrystalDecisions.Shared.ParameterDiscreteValue
        porid.Value = Class1.orid 'ส่งค่าจาก listview ไปยัง parameter ครับ
        Dim pFieldStart As New CrystalDecisions.Shared.ParameterField 'สร้างพารามิเตอร์จำลองขึ้นมา
        pFieldStart.Name = "or_id" 'ตั้งชื่อพารามิเตอร์จำลองให้เหมือนกับที่ได้ตั้งไว้ใน Report
        pFieldStart.CurrentValues.Add(porid) 'นำค่าที่ได้จาก pVal ไปให้พารามิเตอร์ เพื่อเรียกรายงานขึ้นมาตามค่าที่ส่งไปให้
        pFieldStart.HasCurrentValue = True 'สั่งให้พารามิเตอร์ทำงานตามค่าที่ส่งไปให้


        Dim ordate As New ParameterDiscreteValue
        Dim pordate As New CrystalDecisions.Shared.ParameterDiscreteValue
        pordate.Value = Class1.ordate 'ส่งค่าจาก listview ไปยัง parameter ครับ
        Dim pFieldate As New CrystalDecisions.Shared.ParameterField 'สร้างพารามิเตอร์จำลองขึ้นมา
        pFieldate.Name = "or_date" 'ตั้งชื่อพารามิเตอร์จำลองให้เหมือนกับที่ได้ตั้งไว้ใน Report
        pFieldate.CurrentValues.Add(pordate) 'นำค่าที่ได้จาก pVal ไปให้พารามิเตอร์ เพื่อเรียกรายงานขึ้นมาตามค่าที่ส่งไปให้
        pFieldate.HasCurrentValue = True 'สั่งให้พารามิเตอร์ทำงานตามค่าที่ส่งไปให้

        Dim orname As New ParameterDiscreteValue
        Dim pname As New CrystalDecisions.Shared.ParameterDiscreteValue
        pname.Value = Class1.nameEmp 'ส่งค่าจาก listview ไปยัง parameter ครับ
        Dim pFieldname As New CrystalDecisions.Shared.ParameterField 'สร้างพารามิเตอร์จำลองขึ้นมา
        pFieldname.Name = "name_Emp" 'ตั้งชื่อพารามิเตอร์จำลองให้เหมือนกับที่ได้ตั้งไว้ใน Report
        pFieldname.CurrentValues.Add(pname) 'นำค่าที่ได้จาก pVal ไปให้พารามิเตอร์ เพื่อเรียกรายงานขึ้นมาตามค่าที่ส่งไปให้
        pFieldname.HasCurrentValue = True 'สั่งให้พารามิเตอร์ทำงานตามค่าที่ส่งไปให้

        Dim ornum As New ParameterDiscreteValue
        Dim pnum As New CrystalDecisions.Shared.ParameterDiscreteValue
        pnum.Value = Class1.num 'ส่งค่าจาก listview ไปยัง parameter ครับ
        Dim pFieldnum As New CrystalDecisions.Shared.ParameterField 'สร้างพารามิเตอร์จำลองขึ้นมา
        pFieldnum.Name = "or_num" 'ตั้งชื่อพารามิเตอร์จำลองให้เหมือนกับที่ได้ตั้งไว้ใน Report
        pFieldnum.CurrentValues.Add(pnum) 'นำค่าที่ได้จาก pVal ไปให้พารามิเตอร์ เพื่อเรียกรายงานขึ้นมาตามค่าที่ส่งไปให้
        pFieldnum.HasCurrentValue = True 'สั่งให้พารามิเตอร์ทำงานตามค่าที่ส่งไปให้

        Dim btype As New ParameterDiscreteValue
        Dim btypeor As New CrystalDecisions.Shared.ParameterDiscreteValue
        btypeor.Value = Class1.booktype 'ส่งค่าจาก listview ไปยัง parameter ครับ
        Dim type As New CrystalDecisions.Shared.ParameterField 'สร้างพารามิเตอร์จำลองขึ้นมา
        type.Name = "or_type" 'ตั้งชื่อพารามิเตอร์จำลองให้เหมือนกับที่ได้ตั้งไว้ใน Report
        type.CurrentValues.Add(btypeor) 'นำค่าที่ได้จาก pVal ไปให้พารามิเตอร์ เพื่อเรียกรายงานขึ้นมาตามค่าที่ส่งไปให้
        type.HasCurrentValue = True 'สั่งให้พารามิเตอร์ทำงานตามค่าที่ส่งไปให้

        Dim Report As New cry_order1  'สร้างฟอร์มขึ้นมาใหม่
        Me.CrystalReportViewer1.ReportSource = Report
        Me.CrystalReportViewer1.ParameterFieldInfo.Clear() 'ล้างค่าต่างๆก่อน
        Me.CrystalReportViewer1.ParameterFieldInfo.Add(pFieldate) 'เรียกค่าขึ้นมาใหม่
        Me.CrystalReportViewer1.ParameterFieldInfo.Add(pFieldStart) 'เรียกค่าขึ้นมาใหม่
        Me.CrystalReportViewer1.ParameterFieldInfo.Add(pFieldname) 'เรียกค่าขึ้นมาใหม่
        Me.CrystalReportViewer1.ParameterFieldInfo.Add(pFieldnum) 'เรียกค่าขึ้นมาใหม่
        Me.CrystalReportViewer1.ParameterFieldInfo.Add(type) 'เรียกค่าขึ้นมาใหม่
    End Sub