栋栋的个人博客

Access-控件解析-组合框-01-下拉列表

  • 640 字

Part 1：本篇目标

  1. 本篇介绍的控件为：组合框。涉及功能为：下拉列表的实现

功能动图

图片

Part 2：实现功能

  1. 手动设置组合框下拉列表：长江；黄河；珠江；淮河
  2. 通过代码修改组合框下拉列表：1；2；3；4
  3. 应用场景，组合框的下拉列表随着另外一个控件的取值变化而变化。例如，两个组合框，一个显示省份，一个显示城市，当省份不同时，城市组合框下拉列表也会不同

手动设置：打开组合框属性 - 数据选项卡 - 行来源类型设置为值列表 - 行来源设置下拉列表数据，以分号**;**隔开

图片

Part 3：代码

1
2
3
4
5
6
7
8
9
10
Private Sub Command4_Click() 
    ctrlName = "Combo2"   
    Set cbo = Me.Controls(ctrlName) 
    cbo.RowSource = "" 
    cbo.Value = ""
    arr = Array(1, 2, 3, 4)  
    For Each x In arr   
        cbo.AddItem x   
    Next
End Sub

代码截图

图片

Part 4：部分代码解读

图片

  1. cbo.RowSource = ""，将下拉列表清空
  2. cbo.Value = ""，将组合框取值清空
  3. cbo.AddItem x ，增加组合框下拉列表
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
, , , ,