主题：ListView添加窗口

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.Groups.Clear() '清除原来的分组

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.LargeIcon '用大图标模式

Dim gps() As  String  = {"采购申请业务"} '定义分组名称

Dim nms() As String = {"采购申请审核","采购申请驳回"} '定义标题

Dim ics() As String = {"001","002"} '定义图标键值

For Each gp As String In gps

    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组

    vg.Name = gp '指定分组名称

    vg.Text = gp '指定分组标题

Next

For i As Integer = 0 To nms.Length - 1

    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    r.Text = nms(i) '指定标题

    Dim fl As String = ics(i) & ".ico"

    Select Case nms(i)  '指定各个国家所属的分组

        Case "采购申请审核"

            r.Group = "采购申请业务"

            Dim cnt As Integer = DataTables("采购申请明细").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '待审核'")

            fl = Functions.Execute("addimage",fl,cnt)

            r.Text = "采购申请审核(" & cnt  & ")"

        Case "采购申请驳回"

            r.Group = "采购申请业务"

            Dim cnt As Integer = DataTables("采购申请明细").SQLCompute("Count(审核状态)","需审核人 = '"  & _UserName & "' and 审核状态 = '驳回'")

            fl = Functions.Execute("addimage",fl,cnt)

            r.Text = "采购申请驳回(" & cnt  & ")"

    End Select

    lvw.Images.AddImage(fl,fl,fl)'添加代表这个国家的小图标

    r.ImageKey = fl

Next