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

　　 

　　在连续录入的几条记录中，同名字段的内容完全相同或基本相同，此时若能充分利用 数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中，将能大提高数据录入速度。

为了便于用户操作，将这一功能赋予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

原文转自：http://www.ltesting.net