你有两个
Select
在第一个里面。你需要两个
在第二个中也是;
(我重新命名了一些东西,这样更容易阅读)
Dim i As Integer, j As Integer
Dim listOfLists As List(Of List(Of Point)) = New List(Of List(Of Point))
For j = 1 To 2
Dim ll = New List(Of Point)
For i = 1 To 10
ll.Add(New Point With {.x = i, .y = j})
Next
listOfLists.Add(ll)
Next
' This returns what I want
Dim q1 = listOfLists.Select(Function(ll) ll.Select(Function(p) New With {.x = p.x + 1, .y = p.y + 1}))
Dim q2 = From thisList In listOfLists
Select From pnt In thisList
Select New Point With {.x = pnt.x + 1, .y = pnt.y + 1}