Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") Dim dt As DataTable = DataTables("房间列表") lvw.Reset lvw.View = ViewMode.LargeIcon Dim gps As new List(of String) gps = dt.GetValues("分店") For Each gp As String In gps Dim vg As WinForm.ListViewGroup = lvw.Groups.Add vg.Name = gp vg.Text = gp & "店" Next