根据记录集为组合框添加值

Question

我有一个组合框，其行源设置为： -

Set rs = CurrentDb.OpenRecordset("SELECT...")
Set cboBroker.Recordset = rs

我是否可以在列表顶部添加一个名为＆＃34; <ALL>＆＃34;的值，如果是，如何？

Answer 1

如果组合框行源直接绑定到记录集，则需要在记录集中进行任何修改。你可以这样做：

create_dtm

但你不应该。这将花费一些性能，并且将使添加列变得困难。

相反，您可以使用不可编辑的值列表，并将其填充如下：

SELECT "<ALL>" FROM MSysObjects WHERE ID = (SELECT First(ID) FROM MSysObjects)
UNION ALL
SELECT ...