Take While 子句 (Visual Basic)
一直包含集合中的項目，直到指定的條件不為 true，然後略過剩餘項目。
Take While expression
組件
詞彙 |
定義 |
expression |
必要項。運算式，表示要對項目測試的條件。這個運算式必須傳回 Boolean 值或功能上的對等用法，例如待評估為 Boolean 的 Integer。 |
備註
Take While 子句會自查詢結果開頭起一直包含項目，直到提供的 expression 傳回 false 為止。在 expression 傳回 false 之後，查詢會略過所有剩餘項目。傳回剩餘結果時會略過 expression。
Take While 子句跟Where 子句有個不同點，即 Where 子句可用來包含查詢中所有符合特定條件的項目。Take While 子句則只會包含在第一次不合條件之前遇到的項目。當您使用已排序的查詢結果時，Take While 子句會很有幫助。
範例
下列程式碼範例會使用 Take While 子句擷取結果，直到找到第一個沒有任何訂單的客戶為止。
Public Sub TakeWhileSample()
Dim customers = GetCustomerList()
' Return customers until the first customer with no orders is found.
Dim customersWithOrders = From cust In customers
Order By cust.Orders.Count Descending
Take While HasOrders(cust)
For Each cust In customersWithOrders
Console.WriteLine(cust.CompanyName & " (" & cust.Orders.Length & ")")
Next
End Sub
Public Function HasOrders(ByVal cust As Customer) As Boolean
If cust.Orders.Length > 0 Then Return True
Return False
End Function