如何在数据表中添加listview项

Question

网。问题是如何在数据表中添加listview项以生成报告/水晶报告。这是我目前使用的代码。谁知道如何做到这一点或任何其他解决方案？感谢。

    Dim dt As New DataTable

    With dt
        .Columns.Add("supplier_id")
        .Columns.Add("supplier_name")
        .Columns.Add("supplier_address")
        .Columns.Add("supplier_data")

    End With
    For Each dr As ListViewItem In Me.lvSupplier.Items

        dt.Rows.Add(dr.SubItems("supplier_id").Text, dr.SubItems("supplier_name").Text, dr.SubItems("supplier_address").Text, dr.SubItems("supplier_data").Text) <--ERROR. NullReferencedException was unhandled.
    Next
    Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
    rptDoc = New CrystalReport1
    rptDoc.SetDataSource(dt)
    Form1.CrystalReportViewer1.ReportSource = rptDoc
    Form1.ShowDialog()