[求助]listview平铺模式是否可以显示动态统计的数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]listview平铺模式是否可以显示动态统计的数据？

共有3418人关注过本帖树形打印复制链接主题：[求助]listview平铺模式是否可以显示动态统计的数据？

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 21:13:00 [显示全部帖子]

呃，肯定可以统计表里的数据。

里面赋值的时候，是你动态给其赋值的，你想改成什么都可以啊。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 21:43:00 [显示全部帖子]

这段是赋值的代码，你想怎么赋值都可以啊

For Each cl As String In cls '逐列取值

vr(cl) = dr(cl)

改成

vr("团队名称") = 1234

vr("姓名") = 6789

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 21:58:00 [显示全部帖子]

1、复制到Images文件夹；

2、图片只要在images里面，就能显示；

3、你可以多加几列，一列空白，一列显示文字

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 22:16:00 [显示全部帖子]

1、看4楼；

2、

Dim Key As String = dr("照片").Replace("//", "") '获取此员工的照片文件

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 22:22:00 [显示全部帖子]

[此贴子已经被作者于2015/9/29 22:23:24编辑过]

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 22:26:00 [显示全部帖子]

Dim cls() As String = {"姓名","附加1","团队名称","附加2","金币","附加3","附加4"} '定义列名
For i As Integer = 0 To cls.Length - 1 '增加列
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名
Next
For Each dr As DataRow In DataTables("学生信息").DataRows '从数据表中提取数据
    Dim Key As String = dr("照片").Replace("//", "") '获取此员工的照片文件
    lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
    vr.ToolTipText = dr("服务类型") '设置此行的动态提示
    vr.ImageKey = Key '设置图片键值

    vr("姓名") = "姓名：" & dr("姓名")
    vr("团队名称") = "团队：" & dr("团队名称")
    vr("金币") = "金币：" & dr("金币")
    vr("附加4") = Tables("龙源宝藏").Compute("sum(午休)","姓名 = '" & dr("姓名") & "'")

Next
lvw.ResumeRedraw() '恢复绘制

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 22:30:00 [显示全部帖子]

怎样不正确？参考14楼。

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/29 23:04:00 [显示全部帖子]

1、你的表加一列奖章列，然后统计子表数据　http://www.foxtable.com/help/topics/0100.htm

2、代码

For Each dr As DataRow In DataTables("学生信息").Select("", "印章 desc")
'从数据表中提取数据
    Dim Key As String = dr("照片").Replace("//", "") '获取此员工的照片文件
    lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
    vr.ToolTipText = dr("服务类型") '设置此行的动态提示
    vr.ImageKey = Key '设置图片键值

    vr("姓名") = "姓名:" & dr("姓名")
    vr("空行") = "   "
    vr("团队名称") = "团队:" & dr("团队名称")
    vr("空行2") = "   "
    vr("金币") = "金币:" & dr("金币")
    vr("印章") = "印章:" & dr("印章")
Next

下一主题 >> << 上一主题

主题：[求助]listview平铺模式是否可以显示动态统计的数据？