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

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

此主题相关图片如下：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() \'恢复绘制

查阅 http://www.foxtable.com/help/topics/2772.htm

 帮助本来就有，你也不好好学一下

http://www.foxtable.com/help/topics/2773.htm