| 在连续录入的几条记录中，同名字段的内容完全相同或基本相同，此时若能充分利用 数据库中的已有数据，设置一个复制键将上条记录中的同名字段的内容复制到当前记录的同名字段中，将能大提高数据录入速度。为了便于用户操作，将这一功能赋予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数据库数据的选项录入及增减与编辑之三VB数据库数据的选项录入及增减与编辑之三
2004-02-14 09:34
出处：PConline
责任编辑：zwg
