Question

VFP里怎么在某一条记录前追加新纪录,例子

在ZG.dbf的最后一个记录之后插入两条新记录，内容如下
职工号 部门 姓名 电话 地址 年龄 兼职 工作时间 备注
B051 销售部 刘东 86543456 河北 21 .F. 09/10/99
C054 技术部 孙平 12376432 河北 27 .T. 10/11q/93 先进个人
重点是怎么在某一记录前追加
go 1
insert into zg (zgh, xm, dh, dzh, nl, jzh, gzrq, bzh) values ("C054","孙平","12376432","河北",27,.T.,{^1993/10/11},"先进个人")
怎么表浏览时还是添加在最后而不是第二栏?

Answer 1

曲线救国
先确定需要在哪条记录之前追加一条记录
bl_jlh=recno()-1
然后使用：
ALTER table zg.dbf（数据库要完整路径名） add column 序号 N(8)" &&增加一个存放顺序号的字段
repl all 序号 with recno() &&给全部顺序号赋值
appe blank （末尾添加一条新纪录）
repl 职工号 with 'B051',部门 with '销售部',姓名 with '刘东',电话 with '86543456 ',地址 with '河北',年龄 with 21,兼职 with ' .F.,工作时间 with ctod('1999.09.10'),备注 with '',序号 with bl_jlh
appe blank （末尾添加一条新纪录）
repl 职工号 with 'C054',部门 with '技术部',姓名 with '孙平',电话 with '12376432',地址 with '河北',年龄 with 27,兼职 with ' .T.,工作时间 with ctod('1993.10.11'),备注 with '先进个人,序号 with bl_jlh
sort to c:\lssjk.dbf on 序号 （按序号排序）
zap （清空数据库）
appe from c:\lssjk.dbf （将排序后的数据库导入）
ALTER table zg.dbf（数据库要完整路径名）drop column 序号 （将“序号”字段删除）
dele file c:\lssjk.dbf （删除临时文件）
go bl_jlh+1 （返回到当前记录号）

Answer 2

go bottom
append

把字段值输入，就可以在记录的末尾连续追加若干条记录。

insert into 命令总是在记录末尾插入记录。

如果要 在两条记录之间插入记录，要用insert 命令，而不能用insert into 命令。

Answer 3

在记录末尾追加用append命令，在某一记录前添加用insert命令。如：
末尾追加：
go bottom
append

某记录后添加：
go 4
insert &&在第4条记录后添加一条新记录

某记录前添加：
go 4
insert befo &&在第4条记录前添加一条新记录

前面说的是在VF里使用的insert命令，并不是SQL里的insert into命令，使用insert into命令只能将记录添加到表的末尾。

Answer 4

这还不简单 比如说你要在第三条记录前插入一条新纪录
方法一
use 表名
go 2
insert
执行后就会弹出一个框框让你输入记录
方法二
use 表名
go 3
insert before
执行后就会弹出一个框框让你输入记录

Answer 5

再实际文件中，新纪录总是在最后。
你可以通过设置索引，达到排序的目的。