listview控件说明：

控件双击，可选择项目居多，可选择checkbox

代码说明：

Dim i,j,m,n
Dim Report
Set Report=ScreenItems("LT1")
Msgbox Report.listitems.count   //统计listview显示项目的行数 

Msgbox Report.listitems.item(1).Text              //listview第一行数据显示，默认使用的text数据，对应的是第一列的数据
Msgbox Report.listitems.item(3).listsubitems.item(2)        //listitems.item(i)行 listsubitems.item(j)列      item(?)括号内数据对应第几行的数据，第j+1列的数据
Msgbox Report.listitems.item(2).listsubitems.item(1)

 

 

未完待续