创建一个下拉框，其中包含的数字等于或小于另一个字段中的数字。

Question

我正在为一个拥有多本不同书籍副本的图书馆在Access 2013创建一个数据库。我想要创建一个组合框/查找列表，该列表显示的数字等于或少于图书的可用总拷贝数，这样当图书发行时，图书管理员可以在下拉列表中选择下一个最低值。(现有副本数量减少一份)。随着库购买更多受欢迎书籍的副本，购买的拷贝数可能会发生变化，因此下拉框需要动态更新。我该怎么做？我需要复制吗？

Answer 1

首先将combobox的RowSourceType性质设置为"Value List"，以确定将手动管理combobox列表。然后使用Combobox的AddItem法方法添加项，使用RemoveItem法删除项。这是如何删除所有项：

For i = 1 To ListBox1.ListCount
   'Remove an item from the ListBox.
   ListBox1.RemoveItem 0
Next i

删除所有当前项后，计算出多少Available Copies，并将它们添加到循环中的列表中：

For i = 1 To AvailableCopies    
    'Add an item from the ListBox.
    ListBox1.AddItem i   
Next i

可能在表单的OnCurrent事件上，为所显示的每一本书记录运行以下代码。