主题：如何调整，ListView分组位置

默认有两个分组，根据界面需求，想第一个分组为功能类，其次是报表类。

 

生成列表时，如何控制呢。

 

此主题相关图片如下：11.png

 贴出你生成的代码，你控制一下添加组的顺序就行了。

Dim lv3 As WinForm.ListView = e.Form.Controls("ListView3")
lv3.Reset
    lv3.View = ViewMode.LargeIcon
    Dim gps As new List(of String)
    gps = dt.GetValues("类型","模块名称 = '" & str & "'")
    For Each gp As String In gps
        Dim vg As WinForm.ListViewGroup = lv3.Groups.Add
        vg.Name = gp
        vg.Text = gp & "类"
    Next
    For Each dr As DataRow In dt.DataRows
        If dr("模块名称") = str
            Dim key As String = dr("图标")
            lv3.Images.AddLargeImage(key,key)
            Dim vr As WinForm.ListViewRow = lv3.Rows.Add
            vr.ImageKey = key
            vr.Name = dr("功能名称")
            vr.Text = dr("功能名称")
            If dr("类型") = "功能"
                vr.Group = "功能"
            Else
                vr.Group = "报表"
            End If
        End If
    Next

 首先，你去表那里把 类型 的次序调整一下(调整行的位置)，然后这样写代码

 

gps = dt.GetValues("类型","模块名称 = '" & str & "'","_Sortkey")

 

挺好用。

 

顺便请教下，只这一种办法么

 

你控制一下添加 组 的次序，就行了。或许你可以把代码写死。