主题：换行复制的问题

此主题相关图片如下：1}4yzte3s6ogp(lnowptzu.jpg

我想当某个条件时，把订单明细里的内容加到我的提醒表里的提醒明细中去，我的代码如下：

If Tables("订单主表").Current("付款方式") = "现金" Then
Tables("提醒表").AddNew()
Tables("提醒表").Current("提醒主题")="付款" 

For Each t As Row In Tables("订单主表.订单明细表").Rows
    For i As Integer = 0 To Tables("订单主表.订单明细表").Rows.Count-1
Tables("提醒表").Current("提醒明细")="产品名称 : "&t("产品名称") &" 数量 : " & t("产品数量") &" 单价: " & t("产品piao面价") &" 金额: "& t("金额") &" & Chr(13) & Chr(10) &" 
Next
Next
End If

每次都只能把订单明细的最后一条加进去，后来我自己也分析出来了。但不知道怎么解决。请教一下，要怎么解决啊。