你要对应的做一个表【早午晚】，然后查找要打印的信息填充到这张表里面去。根据这张表去弄你的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