- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导出exlce年份20不显示，怎么实现？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124974)
-- 发布时间：2018/9/17 15:28:00
-- [求助]导出exlce年份20不显示，怎么实现？
系统里面的表，年份的开头 20 不显示
If e.Col.name = "日期列年份的20不显示" AndAlso e.text > "" Then
e.text = Format(cdate(e.text), "yy-MM-dd")
End If
用excle模板，分组统计报表
导出excle的日期，年开头的20不能隐藏，要导出的excle年份的20也隐藏，怎么实现？求助
[此贴子已经被作者于2018/9/17 15:28:37编辑过]
-- 发布时间：2018/9/17 15:45:00
--
要在你excel模板那里写公式，如
<format([日期列], "yy-MM-dd")>
-- 发布时间：2018/9/17 16:31:00
-- 回复：（有点甜）要在你excel模板那里写公式，如&nb...
<format([日期列], "yy-MM-dd")>，在实际项目中，如果日期列为空，导出显示为0.00，这个问题怎么修复呢》？
如果同时要实现：
1、分组橙色序号排序+1，模板怎么修改呢？
2、每个橙色分组行上面都显示蓝色区域列标题，模板怎么修改呢？
此主题相关图片如下：问题 2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目2.zip |
[此贴子已经被作者于2018/9/17 16:34:23编辑过]
-- 发布时间：2018/9/17 16:52:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目2.rar |
-- 发布时间：2018/9/17 16:58:00
-- 回复：（有点甜）[upload=rar,项目2.rar]viewFile.asp...
版本过高，打不开。
我这边的版本是7月9日的版本，不能升级了，
辛苦坛主，转一个底版本了
此主题相关图片如下：加密狗到期不能升级.jpg
[此贴子已经被作者于2018/9/17 17:16:36编辑过]
-- 发布时间：2018/9/17 17:22:00
--
beforeBuild事件 vars("idx") = 0
buildGroupHeader事件 vars("idx") += 1
http://www.foxtable.com/webhelp/scr/1953.htm
-- 发布时间：2018/9/17 18:06:00
-- 回复：（有点甜）beforeBuild事件 vars("idx") = 0&...
DrawCell里面设置了，单元格样式，多种颜色，下面导出excle表，颜色不能显示，
要导出excle单元格背景色，下面代码怎么修改呢？
Dim Book As New XLS.Book(ProjectPath & "Attachments\\我的项目分组统计.xls")
\'Dim fl As String = ProjectPath & "Reports\\施工图版物料的封面.xls"
Dim fl As String = "D:\\我的项目分组统计.xls" \'指定目标文件
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
[此贴子已经被作者于2018/9/17 18:06:35编辑过]
-- 发布时间：2018/9/17 18:10:00
--
无法导出样式的。
生成报表后，用xls.book重新打开重新设置样式。
-- 发布时间：2018/9/17 18:28:00
-- 回复：（有点甜）无法导出样式的。?生成报表...
Dim Book As New XLS.Book(ProjectPath & "Attachments\\我的项目分组统计.xls")
\'Dim fl As String = ProjectPath & "Reports\\施工图版物料的封面.xls"
Dim fl As String = "D:\\我的项目分组统计.xls" \'指定目标文件
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
上面保存后，怎么把系统里的单元格颜色，设置过来呢？
要实现导出 单元格颜色，同时导出的是：上楼的分组统计excle模板，坛主出手帮帮了
Dim t As Table = Tables("室内设计项目")
Dim file As String = "d:\\我的项目分组统计.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
t.SaveExcel(file,t.name,flg)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange
app.visible = True
[此贴子已经被作者于2018/9/17 18:31:39编辑过]
-- 发布时间：2018/9/17 18:39:00
--
无法直接设置。
一个一个重新设置才行
http://www.foxtable.com/webhelp/scr/1148.htm
http://www.foxtable.com/webhelp/scr/1146.htm