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

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

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

ehomecd

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

加好友

发短信

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

[求助]listview平铺模式是否可以显示动态统计的数据？ 发帖心情

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

需要实现控件listview的“示例九”的平铺显示功能，但有些数据是根据每天的记录计算而成的，类似于经验值，金币数额等。

第一个问题：用listview是否可以实现统计数据的显示？

第二个问题：如果不行，那用现有的窗口控件如何实现图片、基本信息、动态统计信息的综合显示？

此主题相关图片如下：qq截图20150929211135.jpg

ehomecd

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

加好友

发短信

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

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

印章和运气字段不在 table（“学生信息”），而是根据table（“游戏数据”）中的字段计算出来的，请教代码如何修改？

此主题相关图片如下：2015年9月29日.jpg

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

lvw.StopRedraw() '暂停绘制

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

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

lvw.View = ViewMode.Tile '显示模式为平铺

lvw.Images.LargeSize = New Size(65,75) '定义大图标尺寸

lvw.TitleSize = New Size(150,90) '设置平铺区域的大小

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

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("照片") '获取此员工的照片文件

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)

lvw.ResumeRedraw() '恢复绘制

ehomecd

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

加好友

发短信

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

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

截图无法上传，不知道为什么，我暂时不加载统计的字段，先尝试加载现有字段，有三个问题

1.图片无法显示，我已经将图片复制到Attachments文件夹下，但文件名是中文的，这个不知道是否有影响；

2.另外我的图片列使用了远程文件，不知道是否有影响

3.平铺显示每行文字间距非常窄，不美观，该如何调整？

ehomecd

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

加好友

发短信

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

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

图片无法显示，且文字间距非常窄

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

ehomecd

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

加好友

发短信

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

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

图片列是远程文件

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

ehomecd

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

加好友

发短信

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

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

图片文件名字是中文的

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

ehomecd

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

加好友

发短信

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

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

复制到Images文件夹仍然不不显示，我看了示例九，照片字段直接是图片名字，而我的照片字段是：//卢佳晗.jpg

这两个斜杠是否有影响。

跟下边这个问题一样，就像印章字段不在学生信息表，就报错了。如何既关联到数据表数据，又能动态在listview添加统计数据列？

同样道理，我怎么样加入空白行？

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

部分代码：

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

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("照片") '获取此员工的照片文件

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)

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

lvw.ResumeRedraw() '恢复绘制

ehomecd

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

加好友

发短信

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

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

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

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

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

ehomecd

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

加好友

发短信

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

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

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

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

ehomecd

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

加好友

发短信

等级：童狐帖子：267 积分：2574 威望：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("姓名") & "'")

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

总数 14 1 2 下一页

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