在连续录入的几条记录中，同名字段的内容完全相同或基本相同，此时若能充分利用数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中，将能大提高数据录入速度。为了便于用户操作，将这一功能赋予ctrl键，用户在录入新记录或编辑原有记录时，只要按下ctrl键，则上条记录中的同名字段的内容就复制到当前记录的同名字段中。程序如下： 

option explicit 

dim last as string 

private sub form-activate() 

dim mark as variant 

mark=data1.recordset.bookmark 

data1.recordset.movelast 

last=data1.recordset("name") 

data1.recordset.bookmark=mark 

end sub 

private sub text1-keydown 

(keycode as integer,shift as integer) 

if shift=2 then ’按下ctrl-key复制上条记录中的同名字段的内容 

if data1.recordset.editmode=dbeditinprogress 

or data1.recordset.editmode=dbeditadd then 

text1.text=last 

end if 

end if 

end sub 

private sub command1-click(index as integer) 

select case index 

case0’addnew 

data1.recordset.addnew 

text1.setfocus 

case1’edit 

data1.recordset.edit 

text1.setfocus 

case2’giveup 

data1.recordset.cance1update 

data1.refresh 

case3’save 

data1.recordset. update 

data1.recordset.movelast 

last=data1.recordset("name") ’save the text to last 

data1.refresh 

case4’delete 

data1.recordset.delete 

data1.refresh 

case5’end 

end 

end select 

end sub