Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'停止绘制
lvw.Groups.Clear() \'清除原来的分组
lvw.Columns.Clear() \'清除原来的列
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon
lvw.Images.LargeSize = New Size(110,140)
Dim fzs() As String ={"研究员","高级工程师","工程师","助理工程师","其他"}
For Each fz As String In fzs
    Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
    grp.Name = fz
    grp.Text = fz
Next
For Each dr As DataRow In DataTables("人力资源库").DataRows \'从数据表中提取数据
    Dim Key As String = dr("照片")
    lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
    vr.Text = dr("姓名")  \'设置标题
    vr.ImageKey = Key \'设置图片键值
    Select Case dr("职称")
        Case dr("职称") ="研究员"
            vr.Group = "研究员"
        Case dr("职称") = "高级工程师"
            vr.Group = "高级工程师"
        Case dr("职称") ="工程师"
            vr.Group = "工程师"
        Case dr("职称") = "助理工程师"
            vr.Group = "助理工程师"
        Case dr("职称") = "其他"
            vr.Group = "其他"
    End Select
Next
lvw.ResumeRedraw() \'恢复绘制

调试结果如下图：

图1：字符串问题

图2：分组未成功，而且始终显示的是第一个人

求助！！

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