vb listview控件中如何将text中的数据添加到listview中第三行第四列

Question

ListView1.ListItems(3).ListSubItems(4).Text = TextBox1.Text
第三行第四列原先是没有数据的，直接这样添加会提示索引超出边界

Answer 1

如果原来没有数据，那么就没有listsubitem对象
你判断下，然后add
比如我的例子中这个listview四个列，但是最开始后边都是空的
Option Explicit

Private Sub Command1_Click()
Dim si As ListSubItem
Dim i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 3
If (Me.ListView1.ListItems(i).ListSubItems.Count < j) Then
Set si = Me.ListView1.ListItems(i).ListSubItems.Add()
Else
Set si = Me.ListView1.ListItems(i).ListSubItems(j)
End If

si.Text = i * j
Next j
Next
End Sub

Private Sub Form_Load()
Dim i As Integer, j As Integer
Dim li As ListItem
For i = 1 To 10
Set li = Me.ListView1.ListItems.Add(i, "ddd" & CStr(i), CStr(i))
Next
End Sub

所以你这里要先判断ListView1.ListItems(3).ListSubItems的count，如果小于4那么add一个，然后在设置值