- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- excel报表格式转换的方法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140619)
-- 发布时间：2019/9/10 6:33:00
-- excel报表格式转换的方法
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:excel报表样式转换.xls |
请教老师：excel报表格式转换的方法，谢谢。
-- 发布时间：2019/9/10 6:35:00
--
左边中数据，右边是需要生成的报表样式，请专家指点，谢谢。
-- 发布时间：2019/9/10 8:45:00
--
下载不下来，你的这么是asp格式；我也在搞报表，模板总是不能取父表数据
-- 发布时间：2019/9/10 9:49:00
--
先把数据生成类似这种的汇总表，再输出：
此主题相关图片如下：1.png
-- 发布时间：2019/9/10 13:46:00
--
请教老师，把数据生成类似这种的汇总表的方法，谢谢。
-- 发布时间：2019/9/10 14:03:00
--
上传实例说明
-- 发布时间：2019/9/10 22:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:食堂管理.rar |
请老师指点为谢。
-- 发布时间：2019/9/10 22:55:00
--
按钮，或者命令窗口执行以下代码
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("日期", Gettype(DateTime))
dtb.AddDef("早餐", Gettype(String), 500)
dtb.AddDef("午餐", Gettype(String), 500)
dtb.AddDef("晚餐", Gettype(String), 500)
dtb.AddDef("加餐", Gettype(String), 500)
dtb.Build()
Dim dt As DataTable = DataTables("统计")
For Each ds As String In DataTables("供餐明细").GetValues("日期")
Dim d As Date = cdate(ds)
Dim dr As DataRow = dt.AddNew
dr("日期") = d
For Each cb As String In DataTables("供餐明细").GetValues("餐别","日期=#" & d & "#")
Dim str As String = ""
For Each cm As String In DataTables("供餐明细").GetValues("菜名","日期=#" & d & "# and 餐别=\'" & cb & "\'")
Dim s2 As String = DataTables("供餐明细").SQLGetComboListString("材料 & 数量 & 单位","日期=#" & d & "# and 餐别=\'" & cb & "\' and 菜名=\'" & cm & "\'")
str = str & vbcrlf & cm & ": " & s2.Replace("|",",")
Next
str = str.Trim(vbcr,vblf)
dr(cb) = str
Next
Next
Tables("统计").AutoSizeRows
MainTable = Tables("统计")
-- 发布时间：2019/9/11 8:48:00
--
谢谢老师指点
-- 发布时间：2019/9/15 10:36:00
--
Framework 版本：4.0.30319.42000
Foxtable 版本：2019.8.3.1
错误所在事件：窗口,出库窗口,Button2,Click
详细错误信息：
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
请老师指点错误原因，谢谢。
[此贴子已经被作者于2019/9/15 13:03:33编辑过]