使用数组 vb.net 保存和检索记录



如何将记录从这个数组检索到我的列表视图?

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim countitems As Integer
countitems = ListView2.Items.Count - 1
ReDim valueArray(countitems, 5)
Dim xarray = 0
For i As Integer = 0 To countitems
For Each Item As ListViewItem In ListView2.Items
valueArray(xarray, 0) = Item.Text
valueArray(xarray, 1) = Item.SubItems(1).Text
valueArray(xarray, 2) = Item.SubItems(2).Text
valueArray(xarray, 3) = Item.SubItems(3).Text
valueArray(xarray, 4) = Item.SubItems(4).Text
valueArray(xarray, 5) = Item.SubItems(5).Text
i += 1
Next
Next
End Sub

如果要将所有记录放在列表视图中,可以查看类似以下内容。

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim countitems As Integer
countitems = ListView2.Items.Count - 1
ReDim valueArray(countitems, 5)
Dim xarray = 0
For Each Item As ListViewItem In ListView2.Items
valueArray(xarray, 0) = Item.Text
valueArray(xarray, 1) = Item.SubItems(1).Text
valueArray(xarray, 2) = Item.SubItems(2).Text
valueArray(xarray, 3) = Item.SubItems(3).Text
valueArray(xarray, 4) = Item.SubItems(4).Text
valueArray(xarray, 5) = Item.SubItems(5).Text
xarray += 1
Next
End Sub

最新更新