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

word报表中用chr(13) & chr(10)

可以回车换行，但是由于word的版面是段前空两个字符，结果生成的文档对不齐，试了用chr(13) & chr(10) & chr(10)换行，有时候可以对齐，有时候换两行，啥情况啊这是？

此主题相关图片如下：无标题.png

你模板怎么弄的？你写代码替换字符的？贴出代码或做个例子看看。

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编辑过]

试试

For Each zdr As DataRow In t.Rows(i).DataRow.GetChildRows("证据证明")
zjzm &= " " & zdr("序号") & ":" & zdr("证据") & ",证明" & zdr("证明") & "." & vbcrlf
jzj &= " " zdr("证据") & "?" '简版证据
Next

没用的，我最早的代码就是vbcrlf

以下是引用zyl19810322在2017/8/17 7:54:00的发言：
没用的，我最早的代码就是vbcrlf

做个例子上来测试。

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