主题：[求助]哪位大师帮忙修改一下关于listview的代码，谢谢！

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

 

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

顺便补充一下：帮助中的文件是一种静态获取，而上述代码中的table则是一个动态的表，所以看了半天例子，就是不太清楚，如何实现动态加载这个listview，愚笨。

Select Case dr("职称")
        Case "研究员"
            vr.Group = "研究员"
        Case "高级工程师"
            vr.Group = "高级工程师"
        Case "工程师"
            vr.Group = "工程师"
        Case  "助理工程师"
            vr.Group = "助理工程师"
        Case "其他"
            vr.GROup = "其他"
    End Select