Foxtable(狐表)用户栏目专家坐堂 → [求助] 一天没找出原因,快疯了!


  共有2815人关注过本帖平板打印复制链接

主题:[求助] 一天没找出原因,快疯了!

帅哥哟,离线,有人找我吗?
青鸟
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
[求助] 一天没找出原因,快疯了!  发帖心情 Post By:2015/5/6 18:20:00 [只看该作者]

请教:我有个Excel报表模版:细节区的表名,排序字段名都没错,如下:
                                  <End>
<HeaderRow>
<支付汇总,支付对象简称|合同or费用编号|尾款是否付清,-20>      <All>
<GroupFooter,支付汇总,支付对象简称>

<End>

执行代码如下(略去了细节区数据筛选条件),运行后输出的报表中,细节区数据始终是空的,实在找不到原因,而此段代码在其它报表上应用都是正确的:

Dim mb As String '模版

Dim bm As String '表名

Dim xm As String = forms("报表输出").controls("DropBox1").text '项目

Dim zxm As String = forms("报表输出").controls("DropBox2").text '子项目

 

If xm <> "" Then

    mb = "Attachments\项目支付汇总统计-模版.xls"

    bm = "Reports\项目支付汇总统计"

Else

    msgbox("请选择项目!",0,"提示:")

    Return

End If

 

Dim Book As New XLS.Book(ProjectPath & mb)

 

Dim d As Date = Date.Today()

Dim d1 As String = CStr(d)

d1 = d1.Replace("/","-")

Book.Build() '生成细节区

Dim fl As String = ProjectPath & bm & "-" & (d1) & ".xls"

Book.Save(fl) '保存工作簿

 

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

 

e.Form.Close()


 回到顶部