- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请帮助完成下列报表，如何循环 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66409)
-- 发布时间：2015/4/5 18:24:00
-- 请帮助完成下列报表，如何循环
参考数据表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据表.xls |
此主题相关图片如下：2.bmp
参考效果图 数值列的结构是 “匹数和/长度和 颜色|匹数和/长度和 颜色|匹数和/长度和 颜色|....
此主题相关图片如下：1.bmp
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:报表1.xls |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
[此贴子已经被作者于2015/4/8 19:24:13编辑过]
-- 发布时间：2015/4/7 12:07:00
--
自己顶一下
-- 发布时间：2015/4/7 12:13:00
--
没看懂,请描述清楚,并把狐表例子一起发上来.
-- 发布时间：2015/4/7 12:47:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
另外一个数据表或临时表（附件是数据表），生成数据后再连接Excel报表即可。
-- 发布时间：2015/4/7 17:14:00
--
谢谢，
-- 发布时间：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编辑过]
-- 发布时间：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("过渡")
-- 发布时间：2015/4/7 21:47:00
--
再次感谢