dim Litem as listitem dim i as integer dim str as string for i=0 to listview1.items.count-1 set litem=listview1.items(i) str=litem.text for j=0 to Litem.subitems.count-1 str=str+ litem.subitems(i) next msgbox str next
'改 dim i as integer,j as integer str=str+ litem.subitems(j)
dim i as integer
dim str as string
for i=0 to listview1.items.count-1
set litem=listview1.items(i)
str=litem.text
for j=0 to Litem.subitems.count-1
str=str+ litem.subitems(i)
next
msgbox str
next
dim i as integer,j as integer
str=str+ litem.subitems(j)