สั่งพิมพ์บาร์โค้ดตามจำนวนที่กรอกเอง VB.net ให้ออกมาเรียงกัน

Imports System.Data

Public Class Form1

    Dim dtBarCode As New DataTable
    Dim drBarCode As DataRow
    Dim strProductID As String
    Dim rowBarCode As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.strProductID = "Prod001" ' รหัสสินค้า
        Me.rowBarCode = 10 ' จำนวนแถวที่ต้องการ พิมพ์ ออกรายงาน
        Me.AddColumnTo_dtBarCode() ' method สร้าง คอลัมน์ ให้กับ Datatable
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

        Dim iBarcode As Integer = CInt(Me.rowBarCode) ' เก็บ จำนวนแถว ให้ตัวแปร iBarcode

        ' วนลูป จาก iBarcode
        For index As Integer = 0 To iBarcode - 1

            drBarCode = dtBarCode.NewRow()
            drBarCode("Bar1") = Me.strProductID ' asign ค่าให้กับ DataRow
            drBarCode("Bar2") = Me.strProductID
            drBarCode("Bar3") = Me.strProductID

            dtBarCode.Rows.Add(drBarCode) ' เพิ่ม DataRow เข้าใน  Datatable
        Next

        Dim frmReportBarCode As New frmPreview ' ประกาศตัวแปร new frmPreview
        Dim CR As New CrystalReport1 ' ประกาศ ตัวแปร  CrystalReport1
        CR.SetDataSource(dtBarCode) ' SetDataSource ให้กับตัวแปร CR

        frmReportBarCode.CrystalReportViewer1.ReportSource = CR ' asign 
        frmReportBarCode.WindowState = FormWindowState.Maximized
        frmReportBarCode.Show()

    End Sub

    Private Sub AddColumnTo_dtBarCode()
        dtBarCode.Columns.Add("Bar1") ' เพิ่ม ชื่อ คอลัมน์ *** ต้องให้ตรง กับ คอลัมน์ ใน DataSet1.xsd
        dtBarCode.Columns.Add("Bar2")
        dtBarCode.Columns.Add("Bar3")
    End Sub

End Class