最近老师开始讲列表框的用法，我就想了一个但是一直没做好。我就想做一个类似于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

列表框的数据源只能是一项项具体的字符或变量，也可以是一个表的若干个字段，也可以是一个数组变量。如果是想得到类似打开文件的对话框效果，你必须先通过通配符将需要的文件名先赋值给数组或表，然后再将这个数组或表作为列表框的数据源。

[此贴子已经被作者于2018-6-3 22:03编辑过]

很少用列表框，一般用组合框［不占地面］
数据来源有二：数组提供或者DBF表提供。
它的应用也有二：
VALUE属性获得当前值，
interactive...事件中写入代码。

在combo1的InteractiveChange事件：
    thisform.list1.rowsource = this.displayvalue
当在combo1输入查找文件名（可用通配符），文件列表会自动过滤。