Så här kör du frågor mot en matrislista med LINQ (Visual Basic)
När du använder LINQ för att fråga icke-generiska IEnumerable samlingar, till exempel ArrayList, måste du uttryckligen deklarera typen av intervallvariabel för att återspegla den specifika typen av objekt i samlingen. Om du till exempel har ett ArrayList objekt bör din From-sats se Student ut så här:
Dim query = From student As Student In arrList
'...
Genom att ange typen för intervallvariabeln gjuter du varje objekt i ArrayList till en Student.
Användningen av en explicit typvariabel i ett frågeuttryck motsvarar att anropa Cast metoden. Cast genererar ett undantag om den angivna casten inte kan utföras. Cast och OfType är de två Standard Query Operator-metoder som fungerar på icke-generiska IEnumerable typer. I Visual Basic måste du uttryckligen Cast anropa metoden på datakällan för att säkerställa en specifik intervallvariabeltyp. Mer information finns i Type Relationships in Query Operations (Visual Basic).
Exempel
I följande exempel visas en enkel fråga över en ArrayList. Observera att det här exemplet använder objektinitierare när koden anropar Add metoden, men detta är inte ett krav.
Imports System.Collections
Imports System.Linq
Module Module1
Public Class Student
Public Property FirstName As String
Public Property LastName As String
Public Property Scores As Integer()
End Class
Sub Main()
Dim student1 As New Student With {.FirstName = "Svetlana",
.LastName = "Omelchenko",
.Scores = New Integer() {98, 92, 81, 60}}
Dim student2 As New Student With {.FirstName = "Claire",
.LastName = "O'Donnell",
.Scores = New Integer() {75, 84, 91, 39}}
Dim student3 As New Student With {.FirstName = "Cesar",
.LastName = "Garcia",
.Scores = New Integer() {97, 89, 85, 82}}
Dim student4 As New Student With {.FirstName = "Sven",
.LastName = "Mortensen",
.Scores = New Integer() {88, 94, 65, 91}}
Dim arrList As New ArrayList()
arrList.Add(student1)
arrList.Add(student2)
arrList.Add(student3)
arrList.Add(student4)
' Use an explicit type for non-generic collections
Dim query = From student As Student In arrList
Where student.Scores(0) > 95
Select student
For Each student As Student In query
Console.WriteLine(student.LastName & ": " & student.Scores(0))
Next
' Keep the console window open in debug mode.
Console.WriteLine("Press any key to exit.")
Console.ReadKey()
End Sub
End Module
' Output:
' Omelchenko: 98
' Garcia: 97
