谢谢楼上两位老师!我按流星雨老师的代码改了我的代码如下
cd d:\vfp\turtles\photo_800
local newlist[1]
=adir(newlist,"*.*")
creat cursor listadir(sours c(200))
append from array newlist
replace all sours with lower(sours)
thisform.pageframe1.page6.pageframe1.page1.list1.RowSourcetype=2
thisform.pageframe1.page6.pageframe1.page1.list1.RowSource='listadir'
cd\vfp
但运行时提示出错 - 找不到“字段”表达式。。。麻烦老师指点下