主题：ListView

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

lvw.StopRedraw() '暂停绘制

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

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

lvw.View = ViewMode.LargeIcon '显示模式为大图标

lvw.Images.AddLargeImage("预订房", "yd48.ico") '添加代表男性的一对图标

lvw.Images.AddLargeImage("在住房", "zz48.ico") '添加代表女性的一对图标

lvw.Images.AddLargeImage("钟点房", "zd48.ico") '添加代表男性的一对图标

lvw.Images.AddLargeImage("空房", "kf48.ico") '添加代表女性的一对图标

lvw.Images.AddLargeImage("打扫中", "qx48.ico") '添加代表女性的一对图标

Dim sws As New List(Of String)

Dim sw As String 

sw = DataTables("房间列表").GetComboListString("房号","[分店] = '大东海明珠店'")

 For Each sw In sws     

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

vr.Name = sws("房号")

    vr.Text = sw("房号") & "房" & Chr(10) & "当前状态:" & sw("图号")  '设置标题

    If sw("图号") = "预订房" Then '设置分组

        vr.ImageKey = "预订房"

    Else If sw("目前状态") = "在住房" Then '设置分组

        vr.ImageKey = "在住房"

    ElseIf sw("目前状态") = "空房" Then '设置分组

        vr.ImageKey = "空房"

    ElseIf sw("目前状态") = "钟点房" Then '设置分组

        vr.ImageKey = "钟点房"

    ElseIf sw("目前状态") = "打扫中" Then '设置分组

        vr.ImageKey = "打扫中"

    Else

        vr.ImageKey = "取消房"

    End If

Next

lvw.ResumeRedraw() '恢复绘制