- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]excel报表内去掉回车符带来的空行问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78203)
-- 发布时间：2015/12/4 10:09:00
-- [求助]excel报表内去掉回车符带来的空行问题
如图，表报模版和实际应用显示，
想去掉实际应用里的因为回车符或换行符带来的空行，求助代码，这块没思路，给我思路和教程也行，
在报表事件的生成报表后或者生成细节区里写代码能行么？
此主题相关图片如下：报表应用.png
此主题相关图片如下：报表模版.png
-- 发布时间：2015/12/4 10:12:00
--
是不是你的表里面的数据就不是连续的啊？把表里面的数据处理成连续的，再导出excel
-- 发布时间：2015/12/4 10:15:00
--
这个看不出来啊，录入的时候都是直接从word模版里粘贴复制的。
此主题相关图片如下：1 (2).png
[此贴子已经被作者于2015/12/4 10:16:32编辑过]
-- 发布时间：2015/12/4 10:19:00
--
做个实例发上来。
-- 发布时间：2015/12/4 11:03:00
--
如下[upload=rar,管理项目1.rar]viewFile.asp?ID=73711[/upl
************忘记设置自动换行了，袍哥麻烦你老人家自己手动点一下自动换行哈~~~~~sorry*************
[此贴子已经被作者于2015/12/4 11:06:10编辑过]
-- 发布时间：2015/12/4 11:19:00
--
处理一下表数据，再导出
For Each r As Row In Tables("表A").rows
r("示例") = r("示例").Replace(chr(10), "").replace(chr(13), vbcrlf)
Next
-- 发布时间：2015/12/4 11:45:00
--
表内数据过多的境况下，每点击一次按钮，就会运行一次该代码，较慢，为了提高效率，做了下改进，
.......
dim r as row = currenttable.current
r("示例1") = r("示例1").Replace(chr(10), "").replace(chr(13), vbcrlf)
r("示例2") = r("示例2").Replace(chr(10), "").replace(chr(13), vbcrlf) \'选择有需要的就行
.....
currenttable。save（）
.......
再次感谢大红袍~