有没有办法更有效地编写选项组代码(像这样)?
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