以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  12个月工资报表增加到Excel工资表中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101705)

--  作者:有点蓝
--  发布时间:2017/6/5 22:59:00
--  
上传项目实例+数据测试
--  作者:有点色
--  发布时间:2017/6/6 9:24:00
--  

 参考

 

http://www.foxtable.com/webhelp/scr/1465.htm

 


--  作者:有点甜
--  发布时间:2017/12/17 20:20:00
--  

代码

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\123.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\123.xls"
For i As Integer = 0 To 1
    Dim Sheet As XLS.Sheet = Book.Sheets(i)
    Dim d As Date = new Date(2017, i+1, 1)
    Sheet(1,5).Value = "<月份 >= # " & d & "# and 月份 < #" & d.addmonths(1) & "#>"  \'写入打印条件
Next
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

 

模板

 

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


--  作者:有点甜
--  发布时间:2017/12/17 23:43:00
--  

去写drawcell事件代码

 

http://www.foxtable.com/webhelp/scr/2262.htm