我现在想对数据库中的记录进行修改
我首先取出一条记录的值,其中有一些值是在固定范围中选取的
例如月份,日期,学历等等,这些内容在添加的时候我用的是Combox,将选项罗列出来的
现在我在修改的时候也想把这些内容放入Combox中让用户来选择
我怎么能实现将表中记录显示出来,其它的选项仍然在Combox下拉框中
我试过仍在FORM_LOAD中初始化,不过这样会出错.
我首先取出一条记录的值,其中有一些值是在固定范围中选取的
例如月份,日期,学历等等,这些内容在添加的时候我用的是Combox,将选项罗列出来的
现在我在修改的时候也想把这些内容放入Combox中让用户来选择
我怎么能实现将表中记录显示出来,其它的选项仍然在Combox下拉框中
我试过仍在FORM_LOAD中初始化,不过这样会出错.
Sub CommboDateIn()
..........
adoRS.Open "SELECT * FROM ..........
Dim add$ Combo1.Clear
'注意添加上面这一句,清空,重新赋值 Do Until adoRS.EOF
add$ = adoRS!姓名
Combo.AddItem add$
adoRS.MoveNext
Loop
End Sub
'然后在你添加保存完毕后执行:Call Combo所在窗体名.CommboDateIn
每次给combox重新赋值就可以了
Combo1.DataSource = "数据源"
Combo1.DataField = "数据字段"