如何用VFP复制数据到新的表中

可以的,比如原来的数据库是:

表1

(路径是

c:\test)

要复制到的新表是:

表2

(路径是

c:\test)

use

c:\test\表1

copy

structure

to

c:\test\表2

这样

表1

的结构就复制到

一个空的

表2

中了.

在vaid事件中把代码写成如下形式（事先需要将“样地编号”建立索引）：

cxxx=ALLTRIM(thisform.pageframe1.page1.txt样地编号.value)

IF INDEXSEEK(cxxx, .F., 'cfjbqkb', '样地编号')

=MESSAGEbox('样地编号重复，请重新输入',0+48+0,'提示')

RETURN 0

ENDIF

return 1

我的工作环境 VFP8 SP1、VFP9 SP2。其他的VFP版本未测试。

---