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

end

end select

end sub