主题：求助：listview按图如何实现分组显示呢？

员工信息表中有一个部门名字段，求指导怎么按部门名字实现分组显示

目前只实现如图效果，要求实现如图效果样式，同时实现分组

此主题相关图片如下：qq拼音截图未命名.png

代码部分：

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.AddLargeImage("Man", ProjectPath & "Attachments\Man48.ico") '添加代表男性的一对图标
lvw.Images.AddLargeImage("Woman", ProjectPath & "Attachments\Woman48.ico") '添加代表女性的一对图标

For Each dr As DataRow In DataTables("员工信息").DataRows '从数据表中提取数据
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    vr.Text = dr("名字")  '设置标题
    If dr("性别") = "男" Then '设置分组
        vr.ImageKey = "Man"
    Else
        vr.ImageKey = "Woman"
    End If
Next
lvw.ResumeRedraw() '恢复绘制

那是固定字段的值 和我所需要的不大一样 求直接按表中部门名称进行分组