关于excel的报表设计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、3个餐表先合并为一个查询表http://www.foxtable.com/webhelp/scr/2322.htm

2、按日期分组输出：http://www.foxtable.com/webhelp/scr/1542.htm

用填充

Dim t1 As Table = Tables("表A")

Dim t2 As Table = Tables("表B")

Dim t3 As Table = Tables("表C")

Dim t4 As Table = Tables("总表")

Dim d As Date = Date.today

Dim f As New Filler

f.SourceTable = DataTables("表A") '指定数据来源

f.SourceCols = "配餐日期,食物名称,重量" '指定数据来源列

f.DataTable = DataTables("总表") '指定数据接收表

f.DataCols = "配餐日期,早餐菜谱,早餐重量" '指定数据接收列

f.Append = False

f.Filter = "配餐日期 = #" & d & "# and 早餐菜谱 is not null"

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("表B") '指定数据来源

f.SourceCols = "配餐日期,食物名称,重量" '指定数据来源列

f.DataTable = DataTables("总表") '指定数据接收表

f.DataCols = "配餐日期,午餐菜谱,午餐重量" '指定数据接收列

f.Append = False

f.Filter = "配餐日期 = #" & d & "# and 午餐菜谱 is not null"

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("表C") '指定数据来源

f.SourceCols = "配餐日期,食物名称,重量" '指定数据来源列

f.DataTable = DataTables("总表") '指定数据接收表

f.DataCols = "配餐日期,晚餐菜谱,晚餐重量" '指定数据接收列

f.Append = False

f.Filter = "配餐日期 = #" & d & "# and 晚餐菜谱 is not null"

f.Fill() '填充数据

Dim f As New Filler

f.SourceTable = DataTables("早餐记录表") '指定数据来源

f.SourceCols = "配餐日期,食物名称,重量" '指定数据来源列

f.DataTable = DataTables("打印表_临时") '指定数据接收表

f.DataCols = "配餐日期,早餐菜谱,早餐重量" '指定数据接收列

f.Append = False

f.Filter = "配餐日期 = #" & d & "# and 食物名称 is not null"

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("午餐记录表") '指定数据来源

f.SourceCols = "配餐日期,食物名称,重量" '指定数据来源列

f.DataTable = DataTables("打印表_临时") '指定数据接收表

f.DataCols = "配餐日期,午餐菜谱,午餐重量" '指定数据接收列

f.Append = False

f.Filter = "配餐日期 = #" & d & "# and 食物名称 is not null"

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("晚餐记录表") '指定数据来源

f.SourceCols = "配餐日期,食物名称,重量" '指定数据来源列

f.DataTable = DataTables("打印表_临时") '指定数据接收表

f.DataCols = "配餐日期,晚餐菜谱,晚餐重量" '指定数据接收列

f.Append = False

f.Filter = "配餐日期 = #" & d & "# and 食物名称 is not null"

f.Fill() '填充数据

主题：关于excel的报表设计问题