主题：填加分组!

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 

此主题相关图片如下：qq图片20140425225806.jpg

请问这样填加分组对么?