以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel表单元格如何换行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105457)

--  作者:lihe60
--  发布时间:2017/8/19 21:39:00
--  excel表单元格如何换行
数据库字段值为“a_b_c",在excel报表中,如何在模板中或代码实现在excel表同一单元格三行显示
a
b
c


--  作者:lihe60
--  发布时间:2017/8/19 21:49:00
--  
在数据库同一字段中分成a、b、c三行,但excel报表中又在同一行了。
--  作者:有点甜
--  发布时间:2017/8/20 13:40:00
--  

比如,你excel模板可以这样写

 

<Replace([第一列],"_",vbcrlf)>

 

生成报表后,你要刷新一下,才能正常显示的

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\预计利润表.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim fl As String = ProjectPath & "Reports\\预计利润表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook =App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Formula = rg.Formula
app.visible = True

[此贴子已经被作者于2017/8/20 17:03:09编辑过]

--  作者:lihe60
--  发布时间:2017/8/20 17:01:00
--  
刷新是什么样的操作方法^
--  作者:有点甜
--  发布时间:2017/8/20 17:07:00
--  
以下是引用lihe60在2017/8/20 17:01:00的发言:
刷新是什么样的操作方法^

 

看3楼红色代码。


--  作者:lihe60
--  发布时间:2017/8/20 17:08:00
--  
是电子表中,双击单位格再按回车的意思吗?
--  作者:有点甜
--  发布时间:2017/8/20 17:10:00
--  
以下是引用lihe60在2017/8/20 17:08:00的发言:
是电子表中,双击单位格再按回车的意思吗?

 

差不多。


--  作者:lihe60
--  发布时间:2017/8/20 18:54:00
--  
三楼红色代码也不能换行
--  作者:有点甜
--  发布时间:2017/8/20 19:48:00
--  
以下是引用lihe60在2017/8/20 18:54:00的发言:
三楼红色代码也不能换行

 

我测试没问题,实例发上来。


--  作者:lihe60
--  发布时间:2017/8/20 20:51:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb

[此贴子已经被作者于2017/8/20 20:52:47编辑过]