求助：如何用代码给组合框添加下拉列表

access新新新手

请问在VB的组合框中如何用代码添加下拉列表
值来源于一个access表的一个字段，并且去重复显示在下拉列表中。

roych

设置数据的行来源 select distinct 字段 from 你的表

access新新新手

roych 发表于 2016-1-28 17:17
设置数据的行来源 select distinct 字段 from 你的表

谢谢老师，我是说VB不是access的VBA

access新新新手

roych 发表于 2016-1-28 17:17
设置数据的行来源 select distinct 字段 from 你的表

谢谢老师关注
RST.Open "select distinct 所属类别 from 通讯录 WHERE 所属类别 IS NOT NULL"
    RST.MoveFirst
    While Not RST.EOF
        Combo1.AddItem RST.Fields("所属类别").Value
        RST.MoveNext
    Wend

    CNN.Close
这样可以实现，请老师看看代码还可以优化吗？

zyp

access新新新手 发表于 2016-1-28 18:15
谢谢老师关注
RST.Open "select distinct 所属类别 from 通讯录 WHERE 所属类别 IS NOT NULL"
    RST ...

Roych老师是让你将组合框的数据源直接设为：select distinct 字段 from 你的表
或者直接在窗体的加载事件里写入：
me.组合框名称.rowsource="select distinct 字段 from 你的表"

access新新新手

zyp 发表于 2016-1-29 08:30
Roych老师是让你将组合框的数据源直接设为：select distinct 字段 from 你的表
或者直接在窗体的加载事 ...

谢谢！已经实现了。

newglord

不错不错