以文本方式查看主题

-  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)

--  作者:cnsjroom
--  发布时间:2022/8/12 16:01:00
--  excel模板中 怎么设置问题类别相同的列 序号递增 具体存在的问题对应问题类别下的序号从1开始递增

excel模板中  怎么设置问题类别相同的列  序号递增    具体存在的问题对应问题类别下的序号从1开始递增

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:整改清单.xls

 不能上传图片?压缩包里面的图片示例 麻烦老师们指导下   谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:desktop.zip

[此贴子已经被作者于2022/8/12 16:05:24编辑过]

--  作者:有点蓝
--  发布时间:2022/8/12 16:44:00
--  
这种要使用报表事件处理:http://www.foxtable.com/webhelp/topics/1953.htm


--  作者:cnsjroom
--  发布时间: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

Sheet(0,0).value = 1

--  作者:cnsjroom
--  发布时间:2022/8/12 18:18:00
--  回复:(有点蓝)可以指定单元格填充数据,比如第一行...

老师 还得麻烦老师给个具体的例子或者参考写法

按照老师的提示  我操作了一下 没有得到要领 没有实现预期


--  作者:有点蓝
--  发布时间:2022/8/13 8:31:00
--  
这种方法要自己计算每个单元格得到位置比较麻烦

建议还是使用报表事件。具体问题请上传实例说明