VB.net Listview填充

Question

我正在尝试使用访问数据库中的项目填充VB.net中的Listview。

到目前为止，我已经设法用我想要的所有项目填充它，但是我需要在右列下的项目。（用户和评论）

这是所有相关代码：

    Dim count As Integer
    Dim comments As New DataSet
    comments = GetComments(classid)

    With CommentsView
        .View = View.Details
        .Columns.Add("User")
        .Columns.Add("Comment")
    End With

    count = CountRecords() - 1
    For i As Integer = 0 To count
        CommentsView.Items.Add(comments.Tables(0).Rows(i).Item(2))
        CommentsView.Items.Add(comments.Tables(0).Rows(i).Item(3))

    Next

所以从本质上讲，我希望用户下的Item（2）和评论下的Item（3）。有任何想法吗？

谢谢。

Answer 1

您要添加与LV中的行等效的项，您需要将用户和注释添加为子项（在视觉上等效于列）。

Dim LVI as ListViewItem
' no need for a count temp var
For i As Integer = 0 To CountRecords() - 1
    LVI = New ListViewItem
    ' whatever you want to show in columns 0
    LVI.Text = (What_Ever_Text_For_Col_0)

    ' add subitem text
    ' this is adding strings from a dataset, but could be any string
    LVI.SubItems.Add(comments.Tables(0).Rows(i).Item(2))    ' maybe .ToString?
    LVI.SubItems.Add(comments.Tables(0).Rows(i).Item(3))

    ' add completed LVI to the LV
    CommentsView.Items.Add(LVI)
Next