' ( [ID] IN ( '001', '002') ) ' OR ( [NAME] IN ('ライオン', 'コアラ') ) ' OR ( [DESC] LIKE '%長い%' ) ' Dim Query2改 = From row In MstDtTbl Where IdList.Contains(row.Field(Of String)("ID")) _ OrElse NameList.Contains(row.Field(Of String)("NAME")) _ OrElse row.Field(Of String)("DESC") Like DescLike Select New With { Key .NAME = row.Field(Of String)("NAME"), Key .DESC = row.Field(Of String)("DESC") }
Dim IdList As New List(Of String)() From {"001", "002"} Dim NameList As New List(Of String)() '要素なし Dim DescLike As String = "" '該当なし