- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel模板中 怎么设置问题类别相同的列 序号递增 具体存在的问题对应问题类别下的序号从1开始递增 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179202)
-- 发布时间：2022/8/12 16:01:00
-- excel模板中 怎么设置问题类别相同的列 序号递增 具体存在的问题对应问题类别下的序号从1开始递增
excel模板中 怎么设置问题类别相同的列 序号递增 具体存在的问题对应问题类别下的序号从1开始递增
下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:整改清单.xls
不能上传图片？压缩包里面的图片示例 麻烦老师们指导下 谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:desktop.zip |
-- 发布时间：2022/8/12 16:44:00
--
这种要使用报表事件处理：http://www.foxtable.com/webhelp/topics/1953.htm
-- 发布时间：2022/8/12 16:57:00
-- 回复：（有点蓝）这种要使用报表事件处理：http://www...
可以不用报表事件，然后直接在下面的代码中补充实现不呢？麻烦老师指导下谢谢！
Dim time As String =Format(Date.now,"yyyyMMddHHmmss")
Dim Book As New XLS.Book(ProjectPath & "Attachments\\巡察整改清单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\巡察整改清单" & e.Values("创建人") & e.Values("guid") & time & ".xls"
book.AddDataTable("反馈问题清单","主数据源","Sele ct * from {反馈问题清单} where 巡察组=\'" & e.Values("巡察组") & "\' and 被巡单位=\'" & e.Values("被巡单位") & "\' and 巡察届别=\'" & e.Values("巡察届别") & "\' and 巡察轮次=\'" & e.Values("巡察轮次") & "\'")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
.PaperKind = 9 \'设为A4纸
.LandScape = True \'横向打印
.AutoScale = True \'自动缩放
End With
Book.Build() \'生成报表
Book.Save(fl)
-- 发布时间：2022/8/12 17:26:00
--
可以指定单元格填充数据，比如第一行第一列设置为1
-- 发布时间：2022/8/12 18:18:00
-- 回复：（有点蓝）可以指定单元格填充数据，比如第一行...
老师 还得麻烦老师给个具体的例子或者参考写法
按照老师的提示 我操作了一下 没有得到要领 没有实现预期
-- 发布时间：2022/8/13 8:31:00
--