vb.net - 限制列表视图中的行数并添加新列

Question

我正在用数据表中的记录填充列表视图，我需要将列表视图中的行数限制为 5，当记录超过 5 时，我需要在列表视图中创建一个新列以显示记录。 ..

这就是我填充列表视图的方式：

     Private Sub ShowDataInLvw(ByVal data As DataTable, ByVal lvw As ListView)
    lvw.View = View.Details
    lvw.GridLines = True
    lvw.Columns.Clear()
    lvw.Items.Clear()
    For Each col As DataColumn In data.Columns
        lvw.Columns.Add(col.ToString)
    Next

    For Each row As DataRow In data.Rows
        Dim lst As ListViewItem
        lst = lvw.Items.Add(row(0))
        For i As Integer = 1 To data.Columns.Count - 1
            lst.SubItems.Add(row(i))
        Next
    Next
End Sub

请注意，我的数据表只有 1 列，我使用的是 vb.net 2010

有什么帮助吗？