3 数据的选项录入、选项增减及选项编辑 

　　有些字段的值域较小且相对固定，但会有一定的变化，如“省市”字段会产生变化，如增设一个省或市，撤县设市等等，程序除提供一个合法的基本的选项框供用户选择外，还应允许用户对这个基本的选项框进行增减或编辑。下面的程序实现了此功能，用户双击表单则可对选项框进行增减和编辑，完成后再双击表单关闭编辑功能。 

　　先建立一个数据库“c:myrand.mdb”，其表“rank”中加入一个字段“name”；再从工具箱中拖入一个数据控件data2，一个数据绑定组合框dbcombol和数据绑定网格控件dbgrid1。属性设置为：（1）data2控件的：databasename 属性设为“c:\myrand.mdb”，recordsource为“rank”；（2）dbcombo控件的：name设为dbcombo1， rowsource设为data2，listfiele设为“name”，datasource设为data1。datafield设为“name”；（3）dbgrid控件的：name设为dbgrid1，将allowaddnew、allowdelete、allowupdate均设为true, datasource设为data2。

程序代码如下： 

option explicit 

dim last as string 

dim dd as boolean 

private sub form-activate() 

dim mark as variant 

mark=data1.recordset.bookmark 

data1.recordset.movelast 

last=data1.recordset("name") 

data1.recordset.bookmark=mark 

text1.visible=true 

dbcombol.visible=false 

dbgrid1.visible=false 

end sub