在连续录入的几条记录中，同名字段的内容完全相同或基本相同，此时若能充分利用 数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中，将能大提高数据录入速度。为了便于用户操作，将这一功能赋予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
上一篇： VB数据库数据的选项录入及增减与编辑之四
下一篇： DIY自己的Flash播放器
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
