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

 你要对应的做一个表【早午晚】，然后查找要打印的信息填充到这张表里面去。根据这张表去弄你的excel模板，这样可以方便很多。

这样做麻烦，你提取到一个foxtable的表，比你直接提取到excel要容易。从foxtable直接生成excel表也容易。

单独做一个临时表不就好了？

http://www.foxtable.com/webhelp/scr/0626.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
For Each dr As DataRow In t1.DataTable.Select("配餐日期 = #" & d & "#")
    Dim nr As DataRow = t4.DataTable.AddNew
    nr("配餐日期") = dr("配餐日期")
    nr("早餐菜谱") = dr("食物名称")
    nr("早餐重量") = dr("重量")
Next
For Each dr As DataRow In t2.DataTable.Select("配餐日期 = #" & d & "#")
    Dim nr As DataRow = t4.DataTable.Find("配餐日期 = #" & d & "# and 午餐菜谱 is not null")
    If nr Is Nothing Then nr = t4.DataTable.AddNew
    nr("配餐日期") = dr("配餐日期")
    nr("午餐菜谱") = dr("食物名称")
    nr("午餐重量") = dr("重量")
Next
For Each dr As DataRow In t3.DataTable.Select("配餐日期 = #" & d & "#")
    Dim nr As DataRow = t4.DataTable.Find("配餐日期 = #" & d & "# and 晚餐菜谱 is not null")
    If nr Is Nothing Then nr = t4.DataTable.AddNew
    nr("配餐日期") = dr("配餐日期")
    nr("晚餐菜谱") = dr("食物名称")
    nr("晚餐重量") = dr("重量")
Next

1、你可以用表达式 <format([早餐重量], "0.00")>

2、你的模板是不是有问题？直接定义一个细节区就行了，不要写那么多行。

 上面的可以用一个细节区把所有行弄出来。

 下面的，直接用统计就好了，直接统计临时表的数据。

 如果你17楼的模板满足你的需求的话，那你就那样做吧。

 关于序号的问题，你可以把序号列的值也在你【临时表】体现出来，赋值的时候，把序号也填上不就好了？