vfp如何建立DBF？

  VFP9 的话可以在向数据库添加表时使用全选或多选dbf 。。。。。

VFP6 的话不知道可不可以dbf ，但可以执行以下代码实现（改改其中三行就行）

CLEAR

LOCAL i,n

DIMENSION aF(1)

LOCAL cPath,cDbf

cPath = "D:\aaa\" && 改为dbf 你的目录（30个dbf放里面）

n = ADIR(aF, cPath+"\*dbf 。

  dbf", "AHS")

IF !DBUSED("数据1") && 改为dbf 你的数据库名称

OPEN DATABASE "数据1dbf 。dbc" && 改为你的数据库名称

ENDIF

FOR i = 1 TO n

IF aF[i,1] = "dbf 。

  dbf 。" OR aF[i,1] = "。"

LOOP

ENDIF

cDbf = cPath + aF[i,1]

ADD TABLE &cDbf

ENDFORdbf 。