Question

有没有办法更有效地编写选项组代码（比如这个）？

Select Case frmCity.Value
        Case 1
            Me.frmCustomersSub.Form.Filter = "City = 'Brazil'"
            Me.frmCustomersSub.Form.FilterOn = True
        Case 2
            Me.frmCustomersSub.Form.Filter = "City = 'France'"
            Me.frmCustomersSub.Form.FilterOn = True
        Case 3
            Me.frmCustomersSub.Form.Filter = "City = 'Mexico'"
            Me.frmCustomersSub.Form.FilterOn = True
        Case 4
            Me.frmCustomersSub.Form.Filter = "City = 'UK'"
            Me.frmCustomersSub.Form.FilterOn = True
 End Select

Answer 1

Choose function可以提供帮助：

Dim cityName As String

If frmCity.Value > 0 And frmCity.Value <= 4 Then
    cityName = Choose(frmCity.Value, "Brazil", "France", "Mexico", "UK")

    Me.frmCustomersSub.Form.Filter = "City = '" & cityName & "'"
    Me.frmCustomersSub.Form.FilterOn = True
End If

访问VBA选项组编码

1 个答案: