最近老师开始讲列表框的用法，我就想了一个但是一直没做好。我就想做一个类似于vfp中打开文件的那种对话框。但是一直没有成功。我自己都不知道出现了哪些问题。困扰了我好几天。还请各位帮帮忙，帮我检查检查。拜托了，真的巨难受。不知道错在哪？
combo1 init:

*.dbf,*.prg,*.dbc"
thisform.refresh
command2. click：
lx=
thisform.list1.rowsourcetype=7
thisform.list1.rowsource=lx
thisform.refresh
command1 click:
wjm=alltrim(thisform.text1.value)  &&把要查找的文件的文件名，给wjm
thisform.list1.rowsourcetype=7 &&列表类型为 7文件
c=thisform.list1.listcount  &&这个列表中项目的个数
*i=thisform.list1.listindex
for i=1 to c  &&开始查找
thisform.list1.listindex=i
xzm=thisform.list1.value  &&被选中的项目的文件名
 if wjm$xzm
  ?""
 else
   thisform.list1.removeitem(i)
   thisform.refresh
 endif
endfor