| 以文本方式查看主题 - 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=178678) |
| -- 作者：sysckj -- 发布时间：2022/7/15 10:34:00 -- listview如何动态显示 我这有个A表 字段 姓名 录取学校 录取编号 客户要求在边上要能按录取编号顺序，动态显示每一个学生的录取编号、姓名、录取学校，是如何编码？恳请大虾门指点。不胜感激
|
| -- 作者：有点蓝 -- 发布时间：2022/7/15 10:52:00 -- 显示表格数据参考：http://www.foxtable.com/webhelp/topics/2771.htm 没有理解所谓的“动态显示”具体怎么个动态法？
|
| -- 作者：sysckj -- 发布时间：2022/7/15 12:48:00 -- 回复：（有点蓝）显示表格数据参考：http://www.foxta... 就是按录取编码逐个显示出来，中间需要一点停顿 |
| -- 作者：有点蓝 -- 发布时间：2022/7/15 13:44:00 -- 到窗口计时器，添加行即可，比如 Static n As Integer = 1 if n>=Tables("国家").rows.count then e.Form.TimerEnabled=false return end if Dim lvw As WinForm.ListView = e.Form.Controls("ListView1") lvw.StopRedraw() \'暂停绘制 Dim cls() As String = {"国家", "人口", "面积", "语言", "宗教", "洲"} \'指定要显示的各列 Dim dr As Row = Tables("国家").rows(n) n = n + 1 Dim Key As String = dr("图标") Dim r As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行 lvw.Images.AddImage(Key, Key & ".ico", Key & "48.ico") \'添加代表这个国家的一对图标 r.ImageKey = Key \'指定图标键值 For Each cl As String In cls \'逐列取值 Select Case cl Case "人口", "面积" \'如果是人口列或面积列 r(cl) = format(dr(cl), "#,000") \'则显示千位分割符号 Case Else r(cl) = dr(cl) End Select Next lvw.ResumeRedraw() \'恢复绘制 |