任何想法如何制作这个 FOR 循环?VB.NET

Question

关于如何将其设置为"FOR LOOP"的任何想法，因为我想显示的数据数量不是固定的或恒定的，所以我需要将其放入for循环。

 Public Sub ReportTransactionsLogs(ByVal LV As ListView)
                Dim rReport As New ReportTransLog
                Dim row As DataRow = Nothing
                Dim ds As New DataSet
                ds.Tables.Add("TransactionsLog")
                With ds.Tables(0).Columns
                    .Add("Username")
                    .Add("ActionDate")
                    .Add("ActionTime")
                    .Add("Activity")
                    .Add("POInvoice")
                End With
                For Each LVI As ListViewItem In LV.Items
                    row = ds.Tables(0).NewRow
                    row(0) = LVI.Text
                    row(1) = LVI.SubItems(1).Text
                    row(2) = LVI.SubItems(2).Text
                    row(3) = LVI.SubItems(3).Text
                    row(4) = LVI.SubItems(4).Text
                    ds.Tables(0).Rows.Add(row)
                Next

                rReport.SetDataSource(ds.Tables(0))
                ReportViewer.CrystalReportViewer1.ReportSource = rReport
            End Sub

Answer 1

尝试这样做。

For Each LVI As ListViewItem In LV.Items  row = ds.Tables(0).NewRow
  For i As Integer = 1 To ds.Table(0).Columns.Count()
    If InlineAssignHelper(i, 0) Then
        row(i) = LVI.Text
    Else
        row(i) =LVI.SubItems(i).Text
    End If
   Next
Next