VB数据库数据的选项录入及增减与编辑之三
在连续输入的几条记录中,同名字段的内容完全或基本相同。此时,如果能充分利用数据库中已有的数据,设置一个复制键,将前一条记录中同名字段的内容复制到当前记录中同名字段,将大大提高数据录入速度。为了方便用户操作,这个功能交给了ctrl键。当用户输入新记录或编辑已有记录时,只要按下ctrl键,就会将前一条记录中同名字段的内容复制到当前记录中同名字段。该过程如下:
选项显式
将最后一个变暗为字符串
私有子窗体-激活()
作为变体的模糊标记
mark=data1.recordset.bookmark
data1.recordset.movelast
last=data1.recordset("name ")
data1.recordset.bookmark=mark
末端接头
私有子文本1-按键
(keycode为整数,shift为整数)
Shift = 2,然后按ctrl-键复制前一条记录中同名字段的内容。
if data1 . recordset . edit mode = dbeditinprogress
或者data1 . recordset . edit mode = dbeditadd然后
text1.text=last
如果…就会结束
如果…就会结束
末端接头
私有子命令1-click(索引为整数)
选择案例索引
案例0 '添加新的
data1.recordset.addnew
setfocus
案例1 '编辑
data1.recordset.edit
setfocus
案例2 '放弃
data1.recordset.cance1update
数据1 .刷新
案例3 '保存
数据1 .记录集.更新
data1.recordset.movelast
last=data1.recordset("name ")'将文本保存到最后
数据1 .刷新
情况4 '删除
data1.recordset.delete
数据1 .刷新
案例5 '结束
目标
结束选择
末端接头
位律师回复
0条评论