| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- ListView (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49955) |
| -- 作者：baixiaobai -- 发布时间：2014/4/26 14:56:00 -- 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() \'恢复绘制 我想从(房间列表)中提取(分店列)的(房号)填充到ListView1```为什么木有反映~~有亲能看懂写的对不对么~~
|
| -- 作者：Bin -- 发布时间：2014/4/26 15:03:00 -- sw = DataTables("房间列表").GetComboListString("房号","[分店] = \'大东海明珠店\'") For Each s In sw.split("|") |
| -- 作者：baixiaobai -- 发布时间：2014/4/26 15:07:00 -- 不对哦~ |
| -- 作者：Bin -- 发布时间：2014/4/26 15:12:00 -- 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 这些都不对啊,你这怎么回事? SWS声明的是集合 SW是字符串 你怎么一股脑全部当行来使用?
|