换行复制的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 换行复制的问题

共有4065人关注过本帖树形打印复制链接主题：换行复制的问题

ap9709130

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

换行复制的问题 发帖心情

Post By：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("产品piao面价") &" 金额: "& t("金额") &" & Chr(13) & Chr(10) &"
Next
Next
End If

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

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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("产品piao面价") &" 金额: "& t("金额") &" & Chr(13) & Chr(10) &"
Next
Next
End If

ap9709130

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2013/12/14 12:14:00 [只看该作者]

BIN老师

你弄错我的意思了，我是想在一行里把订单明细的内容分行显示出来，不是分几行显示。

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/14 15:11:00 [只看该作者]

那么你应该把前面的部分拼接,否则当然只有最后一行了.

Tables("提醒表").Current("提醒明细")=Tables("提醒表").Current("提醒明细") & "产品名称 : "&t("产品名称") &" 数量 : " & t("产品数量") &" 单价: " & t("产品piao面价") &" 金额: "& t("金额") &" & Chr(13) & Chr(10) &"