- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 换行复制的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43752)
-- 发布时间：2013/12/14 11:54:00
-- 换行复制的问题
此主题相关图片如下：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("产品票面价") &" 金额: "& t("金额") &" & Chr(13) & Chr(10) &"
Next
Next
End If
每次都只能把订单明细的最后一条加进去，后来我自己也分析出来了。但不知道怎么解决。请教一下，要怎么解决啊。
-- 发布时间：2013/12/14 11:56:00
--
If Tables("订单主表").Current("付款方式") = "现金" Then
Tables("提醒表").Current("提醒主题")="付款"
For Each t As Row In Tables("订单主表.订单明细表").Rows
For i As Integer = 0 To Tables("订单主表.订单明细表").Rows.Count-1
Tables("提醒表").AddNew()
Tables("提醒表").Current("提醒明细")="产品名称 : "&t("产品名称") &" 数量 : " & t("产品数量") &" 单价: " & t("产品票面价") &" 金额: "& t("金额") &" & Chr(13) & Chr(10) &"
Next
Next
End If
-- 发布时间：2013/12/14 12:14:00
--
BIN老师
你弄错我的意思了，我是想在一行里把订单明细的内容分行显示出来，不是分几行显示。
-- 发布时间：2013/12/14 15:11:00
--
那么你应该把前面的部分拼接,否则当然只有最后一行了.
-- 发布时间：2013/12/15 11:50:00
--
多谢BIN
加了以后可以把明细的内容都输入进去了，但换不行。我看了帮助了，本来& Chr(13) & Chr(10) & 后面要接换行的，内容的。但我要接的内容是上面的循环。这样代码要怎么写啊？
-- 发布时间：2013/12/15 19:57:00
--
我猜是这样
-- 发布时间：2013/12/16 13:27:00
--
搞定了。多谢！