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


  共有3296人关注过本帖树形打印复制链接

主题:[求助]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)
    Next

 

改成

 

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


 回到顶部