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

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

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

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("//", "") '获取此员工的照片文件

ehomecd

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

加好友

发短信

等级：童狐帖子：267 积分：2562 威望：0 精华：0 注册：2008/11/9 18:30:00

Post By：2015/9/29 22:20:00 [只看该作者]

哦，4楼的看明白了，我再试一下。

另一个问题，数据前边是否可以加标签？

此主题相关图片如下：li5.jpg

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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() '恢复绘制

ehomecd

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

加好友

发短信

等级：童狐帖子：267 积分：2562 威望：0 精华：0 注册：2008/11/9 18:30:00

Post By：2015/9/29 22:28:00 [只看该作者]

明白了，但空行的写法好像不正确

此主题相关图片如下：li6.jpg

大红袍

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

加好友

发短信

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

Post By：2015/9/29 22:30:00 [只看该作者]

怎样不正确？参考14楼。

ehomecd

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

加好友

发短信

等级：童狐帖子：267 积分：2562 威望：0 精华：0 注册：2008/11/9 18:30:00

Post By：2015/9/29 22:35:00 [只看该作者]

又不让上传图片了，没有空行效果，文字还是挤在一起

Dim cls() As String = {"姓名","空行","团队名称","空行2","金币","印章"} '定义列名

For i As Integer = 0 To cls.Length - 1 '增加列

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

c.Name = cls(i) '指定列名

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 '设置图片键值

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

'vr(cl) = dr(cl)

'Next

vr("姓名") = "姓名:" & dr("姓名")

vr("空行") = ""

vr("团队名称") = "团队:" & dr("团队名称")

vr("空行2") = ""

vr("金币") = "金币:" & dr("金币")

vr("印章") = "金币:" & Tables("龙源宝藏").Compute("sum(午休)","姓名 = '" & dr("姓名") & "'")

ehomecd

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

加好友

发短信

等级：童狐帖子：267 积分：2562 威望：0 精华：0 注册：2008/11/9 18:30:00

Post By：2015/9/29 22:36:00 [只看该作者]

又不让上传图片了，没有空行效果，文字还是挤在一起

此主题相关图片如下：li7.jpg

ehomecd

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

加好友

发短信

等级：童狐帖子：267 积分：2562 威望：0 精华：0 注册：2008/11/9 18:30:00

Post By：2015/9/29 22:46:00 [只看该作者]

还有一个问题，刷新列表的时候，如何让根据统计值，例如印章字段值进行排序，让获得最多印章的人排在第一名？

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 '设置图片键值

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

'vr(cl) = dr(cl)

'Next

vr("姓名") = "姓名:" & dr("姓名")

vr("空行") = ""

vr("团队名称") = "团队:" & dr("团队名称")

vr("空行2") = ""

vr("金币") = "金币:" & dr("金币")

vr("印章") = "印章:" & Tables("龙源宝藏").Compute("sum(午休)","姓名 = '" & dr("姓名") & "'")

大红袍

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

总数 21 上一页 1 2 3 下一页

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