【求助】数据字典 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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.Details '显示模式为详细信息
lvw.Images.AddSmallImage("Man", "Man.ico") '添加代表男性的图标
lvw.Images.AddSmallImage("Woman", "Woman.ico") '添加代表女性的图标
Dim cls() As String = {"姓名","性别","地址"} '指定要显示的各列
Dim wds() As Integer = {100,130,80} '定义列宽
For i As Integer = 0 To cls.Length - 1
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名
    c.Text = cls(i)'指定列标题
    c.Width = wds(i) '指定列宽
Next
Dim dic As new Dictionary(Of String, String)
For Each zh As String In DataTables("信息").GetValues("部门", "部门 is not null") '增加分组
    Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
    Dim fdr As DataRow = DataTables("编码").find("编号 = '" & zh & "'")
    dic.add(zh, fdr("部门"))
    grp.Name = fdr("部门")
    grp.Text = fdr("部门")
Next
For Each dr As DataRow In DataTables("信息").Select("部门 is not null") '从数据表中提取数据
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
    vr.Group = dic(dr("部门")) '指定所属分组
    For Each cl As String In cls '逐列取值
        vr(cl) = dr(cl)
    Next
    If dr("性别") = "男" Then '设置分组
        vr.ImageKey = "Man"
    Else
        vr.ImageKey = "Woman"
    End If
    vr.Tag= dr '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来
Next
lvw.ResumeRedraw() '恢复绘制

主题：【求助】数据字典