VBA ListView 赋值：如何给行列添加数据

以下是一个简单的 VBA 代码示例，用于向 ListView 控件中的行列赋值：

Private Sub FillListView()
    Dim i As Long
    Dim j As Long
    Dim row As ListItem
    
    ' 清空 ListView
    ListView1.ListItems.Clear
    
    ' 添加列标题
    ListView1.ColumnHeaders.Add , , 'Column 1'
    ListView1.ColumnHeaders.Add , , 'Column 2'
    ListView1.ColumnHeaders.Add , , 'Column 3'
    
    ' 添加行数据
    For i = 1 To 10
        Set row = ListView1.ListItems.Add(, , 'Row ' & i)
        For j = 1 To 3
            row.SubItems(j) = 'Data ' & i & ',' & j
        Next j
    Next i
End Sub

这个代码示例首先清空了 ListView 控件，然后添加了三个列标题。接下来，它使用一个循环来添加 10 行数据，每行数据包括三个子项。在循环中，我们首先使用 ListItems.Add 方法添加一行，然后为该行的每个子项分配值。在这个示例中，我们只是简单地使用字符串 'Data i,j' 来填充每个子项，其中 i 和 j 分别是行和列的索引。您可以根据自己的需要修改代码，以便将适当的值分配给每个子项。