if语句中的多个textbox.text值

Question

 If Trim(Me.txtLender.Text) = "WARRANTY FINANCE" Or Trim(Me.cmbLender.Text) = "WARRANTY FINANCE" Then
frmWarrantyFinance.Show
 if Trim(Me.txtLender.Text) = "PAYLINK PAYMENT PLANS" Or Trim(Me.cmbLender.Text) = "PAYLINK PAYMENT PLANS" Then
frmWarrantyFinance.Show
End If

如果语句，例如

 If (Me.TEXT.text) = "This" or "That" OR (ME.CMB.text) = "This" or "That" Then
 ''Code

Answer 1

这应该有效：

Select Case UCase(Trim(Me.txtLender.Text))
    Case "WARRANTY FINANCE", "WARRANTY FINANCE"
        ' Code 1
    Case "PAYLINK PAYMENT PLANS", "PAYLINK PAYMENT PLANS"
        ' Code 2
    Case Else
        ' Code 3
End Select

没有办法按照您的询问方式进行操作。如果您只是在寻找更有效的方法，则可以使用上面的SELECT语句。