以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报表命名和存储路径表达式问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27619)
--  作者：SZDVYE
--  发布时间：2013/1/6 0:06:00
--  报表命名和存储路径表达式问题

数据表含有若干个客户的2012年12月和2013年1月的数据若干条，含有日期的年份和月份取值列：表达式为：SubString(Convert([日期],\'System.String\'),1,4) 和 SubString(Convert([日期],\'System.String\'),6,IIF(SubString(Convert([日期],\'System.String\'),7,1) = \'-\',1,2))

1、EXCEL报表生成表格时，希望出具报表时文件名称为：“最近的年份值”+“最近的月份值”+“客户”+“-结算单”.xls,例如："201301李三-结算单.xls"

 

本人对代码一窍不通，一时半会还是不能处理，还请直接告知如何修改？

 

原来的代码如下：

Dim nms As List(of String) = DataTables("结算表").GetUniqueValues("","客户")

For Each nm As String In nms
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\结算单-2013模板.xls")
    Dim fl As String = ProjectPath & "Reports\\" & nm & ".xls"
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(8, 9).Value = "<客户 = \'" & nm & "\'>"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
Next


 

2、当保存路径由Dim fl As String = ProjectPath & "Reports\\" & nm & ".xls"

                改成Dim fl As String = ProjectPath & "D:\\报表\\" & nm & ".xls"出现报错，请问题如何修改

 

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
--  作者：lin_hailun
--  发布时间：2013/1/6 9:07:00
--  
 改成这样

 Dim fl As String = "D:\\报表\\" & nm & ".xls"
--  作者：SZDVYE
--  发布时间：2013/1/6 9:42:00
--  

第二个问题解决了，谢谢啦。

 

崇拜的狐神，可否帮帮我处理第一个问题呢？


 
--  作者：lin_hailun
--  发布时间：2013/1/6 9:48:00
--  
代码

im nms As List(of String) = DataTables("结算表").GetUniqueValues("","客户")

For Each nm As String In nms
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\结算单-2013模板.xls")
    Dim d As Date = DataTables("结算表").Compute("Max(日期)", "客户 = \'" & nm & "\'")
   
    Dim fl As String = ProjectPath & "Reports\\" & d.Year & d.Month & nm & "-结算单.xls"
   
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Sheet(8, 9).Value = "<客户 = \'" & nm & "\'>"
    Book.Build() \'生成细节区
    Book.Save(fl) \'保存工作簿
Next
--  作者：SZDVYE
--  发布时间：2013/1/6 18:43:00
--  
谢谢狐神了，问题完全的解决了。感谢！