主题：关于跨表多行合并代码问题

有两个表“订单表”、“订单明细表”，比如：“订单明细表”中订单编号为101#，“产品名称”列分别为A、B、C，“数量”列分别是5、10、20；希望在“订单表”中增加“订单详情”列，订单编号101#自动统计为“A（5），B（10），C（20）”，请教老师，这个代码怎么写？

产品少可以这样，如果有几十上百个，这个功能不是合理的用法。作为一个数据库软件，也不应该这样存储数据，这样出报表倒是可以理解。但是数据存储和数据展示是2种不同的概念，尽量分开处理

老师，提示有语法错误

for each dr as datarow in datatables("订单明细").......

,A(5),B(10),C(15)

e.datarow("订单详情") = s.trim(",")

好了，非常感谢蓝老师

老师，下列代码为什么已打开，软件就关闭

Dim tmp As String = ProjectPath & "Attachments\资料卡2.doc" 

Dim rep As String = ProjectPath & "Reports\资料卡2.doc" 

Dim mht As String = ProjectPath & "Reports\资料卡2.mhtml"

Dim wrt As New WordReport(Tables("事件登记"), tmp, rep)

wrt.Build() 

wrt.SaveToMHT(mht)

wrt.Quit

e.Form.Controls("WebBrowser1").Address = mht

如果有安装wps，参考：http://www.foxtable.com/webhelp/topics/3735.htm

我查看了一下电脑，没有安装过WPS文件