VFP的数组怎么动态定义呢
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 (原路径)
*--循环遍历查找出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 (原路径)