- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]单元格多行字符在word报表缩进不一致 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117372)
-- 发布时间：2018/4/11 14:38:00
-- [求助]单元格多行字符在word报表缩进不一致
在一个单元格内有多行文字引用到word报表中，只有第一行显示正确（缩进2个字符），其余各行只缩进了一个字符，是何原因？
如何处理？
谢谢！
此主题相关图片如下：image 1.jpg
[此贴子已经被作者于2018/4/11 14:38:40编辑过]
-- 发布时间：2018/4/11 15:25:00
--
1、如果不设置缩进呢？能否正常排列？
2、放在一个表格的单元格里面，能否正常？
-- 发布时间：2018/4/13 16:30:00
--
1、不设置缩进，第一行正确；其他行仍然缩进一个字符。见下图：
2、放在一个表格的单元格里面显示是正常的。
此主题相关图片如下：1111.jpg
使用的代码老师看过，原帖：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=117002
其中[原告出庭]列合成多列的实际使用代码如下：
If str = "原告" Then
dr("原告出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位") +"")
dr("原告出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
dr("原告出庭") += IIF(dr.IsNull("性别"),"",dr("性别")+"，")
dr("原告出庭") += IIF(dr.IsNull("出生日期"),"",Format(dr("出生日期"), "yyyy年M月d日")+"出生，")
dr("原告出庭") += IIF(dr.IsNull("民族"),"",dr("民族")+"，")
dr("原告出庭") += IIF(dr.IsNull("单位"),"",dr("单位") + "" )
dr("原告出庭") += IIF(dr.IsNull("住所地"),"",dr("住所地") + "。" )
dr("原告出庭") += IIF(dr.IsNull("法定代表人"),"","法定代表人" & dr("法定代表人")+"，")
dr("原告出庭") += IIF(dr.IsNull("职务"),"",dr("职务")+"。")
dr("原告出庭") += IIF(dr.IsNull("是否到庭"),"",dr("是否到庭")+"" )
dr("原告出庭") = dr("原告出庭").trimend("。")
ElseIf str.contains("委托代理人") Then \'下面是原告代理人各列合并
dr("原告出庭") = IIF(dr.IsNull("诉讼地位"),"",dr("诉讼地位").Replace("原告委托代理人","委托代理人")+"")
dr("原告出庭") += IIF(dr.IsNull("诉讼参加人"),"",dr("诉讼参加人")+"，")
dr("原告出庭") += IIF(dr.IsNull("单位"),"",dr("单位") & "。" + "" )
dr("原告出庭") += IIF(dr.IsNull("代理权限"),"",dr("代理权限")+"" )
dr("原告出庭") += IIF(dr.IsNull("是否到庭"),"",dr("是否到庭")+"" )
dr("原告出庭") = dr("原告出庭").trimend("。")
End If
......
-- 发布时间：2018/4/13 16:49:00
--
试试改成这样
<replace([原告出庭], vbcrlf, vbcrlf & " ")>
如果确实不行，那把内容放在一个表格的单元格里面处理吧，这样是最简单的方法。
-- 发布时间：2018/4/16 12:44:00
--
在模板中使用 <replace([原告出庭], vbcrlf, vbcrlf & " ")>
替换以后，很奇怪，成了一整段了。
按说，要么不起作用，要么 vbcrlf 换行符是不会少的。
[此贴子已经被作者于2018/4/16 12:48:26编辑过]
-- 发布时间：2018/4/16 14:38:00
--
上传实例测试。
-- 发布时间：2018/4/24 16:58:00
--
请老师点击红色按钮进行测试。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:缩进.rar |
-- 发布时间：2018/4/24 17:26:00
--
换行符丢失，要改成这样，利用逗号
<replace([原告出庭], chr(-23636), vbcrlf & " ")>