我现在想对数据库中的记录进行修改
我首先取出一条记录的值,其中有一些值是在固定范围中选取的
例如月份,日期,学历等等,这些内容在添加的时候我用的是Combox,将选项罗列出来的
现在我在修改的时候也想把这些内容放入Combox中让用户来选择
我怎么能实现将表中记录显示出来,其它的选项仍然在Combox下拉框中
我试过仍在FORM_LOAD中初始化,不过这样会出错.

解决方案 »

  1.   

    做一个单独的过程:
    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
      

  2.   

    如楼上所说,你的意思是把你列出来的和数据库里查出来的逗显示出来
    每次给combox重新赋值就可以了
      

  3.   

    好象还是不大清楚,我想要的是把要修改的记录作为combox中的当前值,而其它可选项存在于combox下拉列表中,可选项是已定的,不是从数据库中获得的!
      

  4.   

    设置Combo1的属性:
    Combo1.DataSource = "数据源"
    Combo1.DataField = "数据字段"