Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有2115人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
siyugege
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:155 威望:0 精华:0 注册:2019/10/8 4:02:00
[求助]  发帖心情 Post By:2021/6/15 11:13:00 [只看该作者]

备注型列内容中含换行,自动生成的word文档中,多出几个?号,如何去除?

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

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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107648 积分:547549 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:155 威望:0 精华:0 注册:2019/10/8 4:02:00
  发帖心情 Post By:2021/6/15 14:32:00 [只看该作者]

在哪输代码啊


 回到顶部
帅哥哟,离线,有人找我吗?
siyugege
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:155 威望:0 精华:0 注册:2019/10/8 4:02:00
  发帖心情 Post By:2021/6/15 14:33:00 [只看该作者]

在哪输代码呀,刚接触就要用代码啊

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107648 积分:547549 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/15 15:44:00 [只看该作者]

可以设计一个窗口,放到按钮中。或者设计菜单放到菜单按钮中

 回到顶部
帅哥哟,离线,有人找我吗?
siyugege
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:155 威望:0 精华:0 注册:2019/10/8 4:02:00
  发帖心情 Post By:2021/6/15 16:22:00 [只看该作者]

谢谢,慢慢学吧,刚开始学使用

 回到顶部