Foxtable(狐表)用户栏目专家坐堂 → 请帮助完成下列报表,如何循环


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

主题:请帮助完成下列报表,如何循环

帅哥哟,离线,有人找我吗?
lyfxybc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
请帮助完成下列报表,如何循环  发帖心情 Post By:2015/4/5 18:24:00 [只看该作者]

 

 

参考数据表

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据表.xls

 
图片点击可在新窗口打开查看此主题相关图片如下:2.bmp
图片点击可在新窗口打开查看


 

参考效果图   数值列的结构是 “匹数和/长度和 颜色|匹数和/长度和 颜色|匹数和/长度和 颜色|....

 


图片点击可在新窗口打开查看此主题相关图片如下:1.bmp
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报表1.xls


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
 
[此贴子已经被作者于2015/4/8 19:24:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2015/4/7 12:07:00 [只看该作者]

自己顶一下

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/4/7 12:13:00 [只看该作者]

没看懂,请描述清楚,并把狐表例子一起发上来.

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2015/4/7 12:47:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip

另外一个数据表或临时表(附件是数据表),生成数据后再连接Excel报表即可。

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2015/4/7 17:14:00 [只看该作者]

谢谢,

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2015/4/7 20:32:00 [只看该作者]

y2287958老师:


For Each ys As String In DataTables("AA").GetValues("名称")
    Dim yss As String
    Dim dr1 As DataRow = DataTables("过渡").AddNew
    For Each dr As DataRow In DataTables("AA").Select("名称='" & ys & "'")
        dr1("名称")=ys
        dr1("匹数") = DataTables("AA").Compute("Sum(个数)","名称='" & ys & "'")
        dr1("长度") = DataTables("AA").Compute("Sum(数量)","名称='" & ys & "'")
        yss += dr("颜色") & "/" & dr("个数") & "/" & dr("数量") & "|"
    Next
    dr1("组合") = yss.TrimEnd("|")
Next
MainTable = Tables("过渡")

生成效果

图片点击可在新窗口打开查看此主题相关图片如下:3.bmp
图片点击可在新窗口打开查看

实际效果应为这样

图片点击可在新窗口打开查看此主题相关图片如下:4.bmp
图片点击可在新窗口打开查看

是否可以在帮助改写一下循环


[此贴子已经被作者于2015/4/7 20:40:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2015/4/7 20:49:00 [只看该作者]

For Each ys As String In DataTables("AA").GetValues("名称")
    Dim yss As String = ""
    Dim dr1 As DataRow = DataTables("过渡").AddNew
    dr1("名称") = ys
    For Each dr As DataRow In DataTables("AA").Select("名称='" & ys & "'")
        dr1("匹数") = DataTables("AA").Compute("Sum(个数)","名称='" & ys & "'")
        dr1("长度") = DataTables("AA").Compute("Sum(数量)","名称='" & ys & "'")
        yss += dr("颜色") & "/" & dr("个数") & "/" & dr("数量") & "|"
    Next
    dr1("组合") = yss.TrimEnd("|")
Next
MainTable = Tables("过渡")

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2015/4/7 21:47:00 [只看该作者]

再次感谢

 回到顶部