Foxtable(狐表)用户栏目专家坐堂 → [求助] 请教groupheader 分组统计问题?如何实现?


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

主题:[求助] 请教groupheader 分组统计问题?如何实现?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 12:23:00 [显示全部帖子]

具体foxtable项目发上来测试。

 

或者你试试这样引用父表数据 http://www.foxtable.com/webhelp/scr/1394.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 12:59:00 [显示全部帖子]

没办法,必须额外用代码打印。

 

1、模板

 

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

 

2、生成报表代码

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\报价单.xls")
Dim fl As String = ProjectPath & "Reports\报价单.xls"
Dim r As Row = Tables("报价主表").Current
Tables("报价明细").filter = "报价单号 = '" & r("报价单号") & "'"
book.marks("项目") = r("项目")
book.marks("报价说明") = r("报价说明")
book.marks("标题") = r("标题")
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/8 14:41:00 [显示全部帖子]

以下是引用discovery在2018/3/8 13:43:00的发言:
代码我在命令窗口测试 是好用的,非常感谢!再问下,这段代码目前应加在哪个事件中?

 

你可以放在单独做一个按钮,填入代码,单独生成报表;

 

你也可以在报表事件,beforeBuild写代码

 

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

 

Select e.Book.TempLate
    Case "报价单"
        Dim book = e.book
        Dim r As Row = Tables("报价主表").Current
        Tables("报价明细").filter = "报价单号 = '" & r("报价单号") & "'"
        book.marks("项目") = r("项目")
        book.marks("报价说明") = r("报价说明")
        book.marks("标题") = r("标题")
End Select


 回到顶部