VB数据库数据的选项录入及增减与编辑之三

在连续输入的几条记录中，同名字段的内容完全或基本相同。此时，如果能充分利用数据库中已有的数据，设置一个复制键，将前一条记录中同名字段的内容复制到当前记录中同名字段，将大大提高数据录入速度。为了方便用户操作，这个功能交给了ctrl键。当用户输入新记录或编辑已有记录时，只要按下ctrl键，就会将前一条记录中同名字段的内容复制到当前记录中同名字段。该过程如下:

选项显式

将最后一个变暗为字符串

私有子窗体-激活()

作为变体的模糊标记

mark=data1.recordset.bookmark

data1.recordset.movelast

last=data1.recordset("name ")

data1.recordset.bookmark=mark

末端接头

私有子文本1-按键

(keycode为整数，shift为整数)

Shift = 2，然后按ctrl-键复制前一条记录中同名字段的内容。

if data1 . recordset . edit mode = dbeditinprogress

或者data1 . recordset . edit mode = dbeditadd然后

text1.text=last

如果…就会结束

如果…就会结束

末端接头

私有子命令1-click(索引为整数)

选择案例索引

案例0 '添加新的

data1.recordset.addnew

setfocus

案例1 '编辑

data1.recordset.edit

setfocus

案例2 '放弃

data1.recordset.cance1update

数据1 .刷新

案例3 '保存

数据1 .记录集.更新

data1.recordset.movelast

last=data1.recordset("name ")'将文本保存到最后

数据1 .刷新

情况4 '删除

data1.recordset.delete

数据1 .刷新

案例5 '结束

目标

结束选择

末端接头