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

Dim t As Table = Tables("基本信息")

For i As Integer = t.TopPosition To t.BottomPosition

Dim y As Byte = t.Rows(i).DataRow.GetChildRows("违法及处理情况").count

t.Rows(i).Locked = True

For Each br As DataRow In t.Rows(i).DataRow.GetChildRows("违法及处理情况")

br.Locked = True

For Each ar As DataRow In t.Rows(i).DataRow.GetChildRows("证据证明")

ar.Locked = True

Dim tt As Row = t.Rows(i)

Dim tml As String = ProjectPath & "Attachments\立案审批表.doc" '指定模板文件

Dim flt As String = ProjectPath & "Reports"

Dim zjzm As String = ""

For Each dr In t.Rows(i).DataRow.GetChildRows("违法及处理情况")

For Each zdr As DataRow In t.Rows(i).DataRow.GetChildRows("证据证明")

zjzm &= zdr("序号") & "：" & zdr("证据") & "，证明" & zdr("证明") & "。" & chr(13) & chr(10)

jzj &= zdr("证据") & "、" '简版证据

Dim gzs As New WordReport(t,tmg,flg)

gzs.ReplaceOne("[全部证据证明]", zjzm.TrimEnd(chr(13),chr(10)))

gzs.BuildOne(t.Rows(i))

gzs.quit()

大概就是这个样子

[此贴子已经被作者于2017/8/16 22:18:49编辑过]

主题：[求助]word报表中回车换行的问题