在VFP9里面怎么向数据库表添加数据

Question

如题所述

Answer 1

VFP9 的话可以在向数据库添加表时使用全选或多选.....
VFP6 的话不知道可不可以，但可以执行以下代码实现（改改其中三行就行）

CLEAR
LOCAL i,n
DIMENSION aF(1)
LOCAL cPath,cDbf
cPath = "D:\aaa\" && 改为你的目录（30个dbf放里面）
n = ADIR(aF, cPath+"\*.dbf", "AHS")
IF !DBUSED("数据1") && 改为你的数据库名称
OPEN DATABASE "数据1.dbc" && 改为你的数据库名称
ENDIF
FOR i = 1 TO n
IF aF[i,1] = ".." OR aF[i,1] = "."
LOOP
ENDIF
cDbf = cPath + aF[i,1]
ADD TABLE &cDbf
ENDFOR