需要列表视图帮助

Question

作为一个相对较新的 vb.net 用户，我感到很困惑。为什么我的列表视图没有修改列表中的值？如果可以的话，我可以正确地了解 listview 如何从数据库中显示其数据。除了代码问题，我还有一个一般性问题。

我的列表视图中有五列 (0-4)。我是否正确地说，如果我的访问数据库包含 10 个字段但我只需要显示其中五个但其中一个是字段 (9)，那么将像下面的代码一样对列表进行编码，这不会改变值和如果我删除“else”语句，只会显示列表。

什么是错误？非常感谢

更新代码：

oledbCnn.ConnectionString = My.Settings.storageConnectionString
        oledbCnn.Open()

        'drcount = Convert.ToInt32(dr("RowCount"))

        sql = "Select TOP 100 * from Requests ORDER BY [Date-time received] DESC"
        Debug.Print(sql)
        Dim oledbCmd As OleDbCommand = New OleDbCommand(sql, oledbCnn)


        Using dr = oledbCmd.ExecuteReader()


            'clear items in the list before populating with new values
            'lvRequests.Items.Clear()

            While dr.Read()
                If dr.HasRows Then
                    Dim LVI As New ListViewItem

                    With LVI
                        .Text = dr(0).ToString()
                        .UseItemStyleForSubItems = False
                        .SubItems.Add(CDate(dr(5)).ToShortDateString())
                        .SubItems.Add(dr(1).ToString())
                        .SubItems.Add(dr(3).ToString())
                        If dr(3).ToString = "D" Then
                            .SubItems(3).Text = "Destroyed"
                        ElseIf dr(3).ToString = "O" Then
                            .SubItems(3).Text = "Out"
                        ElseIf dr(3).ToString = "I" Then
                            .SubItems(3).Text = "Intake"
                        End If
                        .SubItems.Add(dr(9).ToString())
                        If dr(9).ToString = "DEMO" Then
                            .SubItems(9).Text = "Done"

                        End If
                    End With
                    lvRequests.Items.Add(LVI)

                    lvcount += 1

                End If

            End While
        End Using

Answer 1

没有足够的信息来真正确定发生了什么。您似乎从数据库中提取了 10 列，但如果您只将其中的 5 列发布到 LV，那么应该只有 5 个子项。所以这是错误的：

If dr(9).ToString() = "DEMO" Then
    lvRequests.Items(lvRequests.Items.Count - 1).SubItems(9).Text = "Done"

' should probably be: 
If dr(9).ToString() = "DEMO" Then
    lvRequests.Items(lvRequests.Items.Count - 1).SubItems(4).Text = "Done"

至少在代码中可以使其更清晰的是对子项使用名称。如果您实例化一个 SubItem 对象而不是使用默认构造函数，则可以分配一个名称并以这种方式引用它们：

Dim si As New ListViewItem.ListViewSubItem
With si
    .Text = dr(X).ToString        ' dunno whats in there
    ' this is probably not exactly right, but give the SubItem 
    ' the same name as the db column
    .Name = dr.Table.Columns(X).ColumnName
End With

thisItem.SubItems.Add(si)         ' add sub to Item collection

现在，您的代码可以使用名称而不是索引：

If dr(9).ToString() = "DEMO" Then
    lvReq.Items(lvReq.Items.Count - 1).SubItems("TheColumnName").Text = "Done"

有多少列或子项不再重要。 ListViewItem.SubItems 集合不要求子项名称是唯一的，因此可能以 2 同名结束，但如果您从 DR/DT/DB 正确映射，它应该会自行处理。

如果 LV 绑定到数据源（您没有说），那么 SubItems 的数量可能与 db/datasource 列一样多（实际上从未以这种方式使用过 LV）。