主题：报表问题，请教老师们

直接加上就行了吧？

……

With Tables("日期.内容")
    For r As Integer = 0 To .Rows.Count - 1 '遍历关联表每一行
        rt.Cells(r+1,0).Text = .rows(r)("产品名称")
        rt.Cells(r+1,1).Text = .rows(r)("规格") & "cm"
        rt.Cells(r+1,2).Text = .rows(r)("厚度") & "C"
        rt.Cells(r+1,3).Text = .rows(r)("数量") & "件"
        rt.Cells(r+1,4).Text = .rows(r)("备注")
    Next
End With

……