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

VFP里怎么在某一条记录前追加新纪录?,第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 (返回到当前记录号)

use 表名

for i=1 to 100

mbh=str(1000+i,4)

mbh=subs(mbh,2,3)

appe blan

repl 编号 with mbh

endfor

有多种方法:

①浏览时,点击菜单“表”→“追加新记录”或ctrl+y

②追加命令:append或append blank,增加一条空记录,再替换

③插入命令:insert[before]

④利用数据工作期,单击“追加新记录”


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/bake/11859510.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-19
下一篇 2023-05-19

发表评论

登录后才能评论

评论列表(0条)

保存