Question

VFP里怎么在某一条记录前追加新纪录?

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 （返回到当前记录号）