点击下载此示例

截   图:

源   码:

'统计下拉列表中选择部门的人数
Private Sub cmd_统计_Click()
    '定义整型变量和字符串变量，用于保存统计结果和统计条件
    Dim Num As Integer
    Dim Str As String
    '获得统计条件
    Str = "[部门]=" & "'" & cmb_部门 & "'"
    '统计指定部门的的人数
    Num = DCount("部门", "Q_员工工资", Str)
    '将统计结果显示到窗口文本框中
    txt_人数 = Num & "人"
End Sub