19,502
社区成员
发帖
与我相关
我的任务
分享
Public Function LIST()
Dim I As Integer
Dim A As ListViewItem
Dim j As Integer
'Dim c As ListViewItem.ListViewSubItem
For i = 0 To 9
A = New ListViewItem()
A.Text = "rt"
For j = 0 To 3
A.SubItems.Add("a1")
A.SubItems.Add("a1")
A.SubItems.Add("a1")
A.SubItems.Add("a1")
A.SubItems.Add("a1")
A.SubItems.Add("a1")
Next
Form1.ListView1.Items.Add(A)
Next