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


  共有2970人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
青鸟
  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()


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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/5/7 9:21:00 [显示全部帖子]

模版里面也不行,问题在 “报表输出”→“支付分类统计” 里面。报表名是“项目支付汇总统计”,我上传了文件,作得很低劣,见笑。有好的建议请勿吝赐教。

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


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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/5/7 10:07:00 [显示全部帖子]

对了,问题就出在这里,现在好了,我可以给老婆交差了,万分感谢!

 回到顶部