ต้องการให้ crytal report เรียงตัวเลขตามจำนวน ค่าใน textbox

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ds.Tables("dtQRCode").Rows.Clear()
        Me.CrystalReportViewer1.Refresh()

        For i As Integer = 0 To Int32.Parse(TextBox1.Text) - 1
            ds.Tables("dtQRCode").Rows.Add(qrimage, tb1, tb2, tb3, tb4, tb5, tb6, tb7, tb8)
        Next

        Dim rpt As New rptQRCode
        rpt.Load(Application.StartupPath & "\Reports\rptQRCode.rpt")
        rpt.SetDataSource(ds.Tables("dtQRCode"))
        CrystalReportViewer1.ReportSource = rpt
    End Sub