以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169395)

--  作者:siyugege
--  发布时间:2021/6/15 11:13:00
--  [求助]
备注型列内容中含换行,自动生成的word文档中,多出几个?号,如何去除?

图片点击可在新窗口打开查看此主题相关图片如下:123456.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/6/15 11:16:15编辑过]

--  作者:有点蓝
--  发布时间:2021/6/15 11:55:00
--  
要使用代码处理,替换一下换行符

Dim tm As String  = ProjectPath & "Attachments\\test.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\test.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport
wrt.Replace("[第一列]",Tables("表A").Current("第一列").replace(chr(10),""))
wrt.BuildOne(Tables("表A").Current)
wrt.Show() \'显示报表

--  作者:siyugege
--  发布时间:2021/6/15 14:32:00
--  
在哪输代码啊


--  作者:siyugege
--  发布时间:2021/6/15 14:33:00
--  
在哪输代码呀,刚接触就要用代码啊
--  作者:有点蓝
--  发布时间:2021/6/15 15:44:00
--  
可以设计一个窗口,放到按钮中。或者设计菜单放到菜单按钮中
--  作者:siyugege
--  发布时间:2021/6/15 16:22:00
--  
谢谢,慢慢学吧,刚开始学使用