求教VFP里导入语句和导出语句的写法

来源：百度知道 编辑：UC知道 时间：2024/05/29 20:41:49
1.比如我在一个VFP系统里有一个空表main.dbf,相通过外部dbf表导入数据,这里假设字段什么的都匹配,就想请教各位如何做?首先要找到拟导入的表所在位置--选择--确定导入,提示导入多少条数据.比较简单,但我实在不会,请教各位了.
2.如何导出,对于已经导入数据的main.dbf,我想导出数据,导出时要求可以选择导出类型,如常用的dbf,excel等.
望各位不吝赐教!
我的意思是这样的:假如我菜单里有一个"导入"项,点之后应该弹出一个窗口,可以通过路径选择要导入的dbf 表,然后"确定"就可以啦.
菜单里另一项"导出",点之后弹出窗口,选择欲导出的类型,确定即可.还请各位赐教!!!

导入：可以用append from <要导入的文件名（DBF）>
导出：COPY TO <要导入的文件名>,如果要导出EXCEL:
COPY TO <要导入的文件名> TYPE XL5
*代码：导出
Afile=GETFILE('DBF','打开') &&选择要导出的表
USE (Afile) &&打开表
TFILE=PUTFILE('SAVE TO:',' ','DBF') &&指定导出的文件
IF RIGHT(TFILE,3)='XLS'
COPY TO (TFILE) TYPE XL5
ELSE
COPY TO (TFILE)
ENDIF

首先你用文件菜单下有个导出和导入的功能
然后按照里的向导做就可以了
最后VFP自己会按的操作生成句语
你当然就可以再来编辑这条语句了
就是这么简单
自己多试几次
肯定会成功的

use 表1 in 1
use 表2 in 2
scan
select 1
append blank
replace 表1.字段1 with 表2.字段1
select 2
skip
endscan
以上代码将表二所有记录倒入表一,在表尾导入,至于如何导入.其它的方式么修改下代码就OK

use 表
copy to 文件名 type xls
导出到excel表格

从外部导入dbf指令
用append from dbf文件名
导出指令
copy to dbf文件名

你的问题确实不难，可你要求有界面，就需要有时间给你做了，你等等吧