16,553
社区成员
发帖
与我相关
我的任务
分享
Imports System.Reflection
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim l As New List(Of grid)
For ii As Integer = 0 To 10
Dim gd As New grid
gd.h = Chr(65 + ii \ 2) & Chr(66 + ii \ 2)
gd.i = ii
l.Add(gd)
Next
Dim lt = From g In l _
Group By g.h Into Group
For Each gru In lt
Console.WriteLine(gru.h)
''得到新的list
Dim llt As List(Of grid) = gru.Group.ToList()
For Each gu In gru.Group
Console.WriteLine(gu.h + "--" + gu.i.ToString)
Next
Next
End Sub
Public Class grid
Public h As String
Public i As Integer
End Class
End Class