是否有任何運營商在VB.net的功能類似於一個在SQL

Question

是否有任何功能或操作，如：

 If RoleName in ("Val1", "Val2" ,"Val2") Then 
     'Go 
    End If 

相反的：

If RoleName = "Val1" Or RoleName = "Val2" Or RoleName = "Val2" Then 
     'Go 
    End If 

Answer 1

嘗試使用數組，然後你可以使用包含擴展：

Dim s() As String = {"Val1", "Val2", "Val3"} 
If s.Contains(RoleName) Then 
    'Go  
End If 

或不申報行：

If New String() {"Val1", "Val2", "Val3"}.Contains(RoleName) Then 
    'Go 
End If 

從OP，如果包含擴展不可用，你可以試試這個：

If Array.IndexOf(New String() {"Val1", "Val2", "Val3"}, RoleName) > -1 Then 
    'Go 
End If 

Answer 2

你也可以使用一個Select..Case聲明：

Select Case RoleName 
    Case "Val1", "Val2", "Val3" 
     ' Whatever 
End Select 

Answer 3

您可以使用包含如圖所示通過LarsTech，但它也很容易添加In擴展方法：

Public Module Extensions 

    <Extension()> _ 
    Public Function [In](Of T)(value As T, ParamArray collectionValues As T()) As Boolean 
     Return collectionValues.Contains(value) 
    End Function 

End Module 

您可以使用它像這樣：

If RoleName.In("Val1", "Val2", "Val3") Then 
    'Go 
End If