use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
FOR nCount = 1 TO gnDbcnumber  
    insert into b1 values (gaDatabase(nCount,1))
ENDFOR
gaDatabase 是一个二维数组

或者
use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
local aa[gnDbcnumber]
FOR nCount = 1 TO gnDbcnumber  
    aa[nCount]=gaDatabase(nCount,1)
ENDFOR
insert into b1 from array aa

[ 本帖最后由 sdta 于 2015-5-9 21:37 编辑 ]

搞定了,逐条添加,呵呵!原来如此简单

use b1
gnDbcnumber = ADIR(gaDatabase, '*.DBf')  
nCount = 1     
APPEND FROM ARRAY gaDatabase(nCount,1)

谢谢!学习一下

会者不难，难者不会。

&&假如表在默认目录下的dbfs文件夹内
set default to e:\den
create table b1 ( TableName c(40) )
gnDbcnumber = ADIR(gaDatabase, 'dbfs\*.DBf')  
FOR nCount = 1 TO gnDbcnumber  
select b1     
APPEND FROM ARRAY gaDatabase(nCount,1)
ENDFOR
select b1
append blank
replace TableName with  "共"+str(gnDbcnumber)+"个记录"
browse
use
delete file b1.dbf