稻壳灰 水泥 学位论文:关于vf listview控件的listitems(i).listsubitems.add的

local rstatus,rnumber,n
thisform.listview1.icons=thisform.imagelist1.object&&设置列表视图所使用的图像来自哪个控件
thisform.listview1.smallicons=thisform.imagelist2.object
&&选择小图标、列表和报表方式显示时需用到16*16像素的小图标
go top
scan
&&读取数据，在列表视图控件中加入列表项
rstatus=客房信息.客房状态
rnumber=客房信息.客房编号
n=1
do case
case alltrim(rstatus)="F" &&空房
thisform.listView1.ListItems.Add(n,,rnumber,1,1)
&&下面以行是子列表项，在进行报表方式显示时还能以文字方式显示房间状态
&&报表功能无法实现
*thisform.listView1.ListItems(n).ListSubItems.Add(,,"F")
case alltrim(rstatus)="T"&&住房
thisform.listView1.ListItems.Add(n,,rnumber,2,2)
*thisform.listView1.ListItems(n).ListSubItems.Add(,,"T")
CASE rstatus = "jf"
*将到
thisform.listView1.ListItems.Add(n,,rnumber,3,3)
*thisform.listView1.ListItems(n).ListSubItems.Add(,,"jf")
CASE rstatus = "jt"
*将离
thisform.listView1.ListItems.Add(n,,rnumber,4,4)
*thisform.listView1.ListItems(n).ListSubItems.Add(,,"jt")
ENDCASE
n=n+1
endscan
LOCATE FOR 客房信息.客房编号=thisform.listView1.selectedItem.Text
&&降记录指针定位到列表视图中的当前选项对应的记录上
thisform.optiongroup1.Refresh
为什么"*"号注释掉的listview.listitems(i).listsubitem(, ,'f')出错啊，请求您的帮助，谢谢