首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

VFP的数组怎么动态定义呢

2012-06-22 
VFP的数组如何动态定义呢?*--循环遍历查找出Excel文件并插入一个临时表中CREATE CURSOR tb1(tbname c(100)

VFP的数组如何动态定义呢?
*--循环遍历查找出Excel文件并插入一个临时表中
CREATE CURSOR tb1(tbname c(100))

gNo = ADIR(gaFiles, '&nf1\*.xls')
FOR nCount = 1 TO gNo  
  Append Blank
  INSERT INTO tb1(tbname) values(gaFiles(nCount,1))
ENDFOR

因为,gaFiles 是一个动态数组,列数可以限定个数,但是行数没有定的,那么如何定义这个数组呢? 

因为,如果没有定义,我编译时,则出现如下:

unable to find unknown GAFILES 这个错误, 请高手帮忙,如何定义呢? 谢谢!

[解决办法]
原路径=SYS(5)+CURDIR()
查找路径="F:\YYRJ\"
SET DEFAULT TO (查找路径)
LOCAL AFILES(1)
CREATE CURSOR TABNAME (文件名 C(100))
FOR I = 1 TO ADIR(AFILES,"*.XLS")
INSERT INTO TABNAME VALUES (AFILES(I,1))
ENDFOR
SET DEFAULT TO (原路径)

热点排行