我猜是这样
If Tables("订单主表").Current("付款方式") = "现金" Then
Dim nr As Row = Tables("提醒表").AddNew()
nr("提醒主题") = "付款"
For Each t As Row In Tables("订单主表.订单明细表").Rows
nr("提醒明细") += "产品名称 : " & t("产品名称") & " 数量 : " & t("产品数量") & " 单价: " & t("产品piao面价") & " 金额: " & t("金额") & vbcrlf
Next
End If