Foxtable(狐表)用户栏目专家坐堂 → 生成word报表有没有系统命令?


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

主题:生成word报表有没有系统命令?

帅哥哟,离线,有人找我吗?
初心不改再说未来
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
生成word报表有没有系统命令?  发帖心情 Post By:2018/10/14 16:15:00 [只看该作者]

除了下面这些之外,想根据当前选定的行,生成word报表,系统命令再哪里?

我需要在自定义的导航按钮中添加一个生成word报表的功能,而非在FT的界面生成(现在FT生成和模板都已完成)


Syscmd.Table.ExcelReportManager()Excel报表模版管理
Syscmd.Project.NewExcelTemplate()新建Excel报表模板
Syscmd.Project.OpenExcelTemplate()打开Excel报表模板
Syscmd.Project.ExcelVBCode()设置Excel报表事件代码
Syscmd.Table.WordReportManager()Word报表模板管理
Syscmd.Project.NewWordTemplate()新建Word报表模板
Syscmd.Project.OpenWordTemplate()打开Word报表模板
Syscmd.Table.CodeReportManager()专业报表管理

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2018/10/14 16:25:00 [只看该作者]

按钮的click事件直接写

Dim tm As String  = ProjectPath & "Attachments\出库单.doc" '指定模板文件
Dim 
fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
Dim 
wrt As New WordReport(Tables("出库"),tm,fl'定义一个WordReport
wrt.Build()
 '逐行生成报表
wrt.Show() 
'显示报表

这个我不想让他逐行,直接选定的当前行要怎么改下,谢谢老师

foxtable的生成报表的菜单是怎么设计出来的呢?
[此贴子已经被作者于2018/10/14 16:26:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2018/10/14 16:32:00 [只看该作者]

Dim tm As String  = ProjectPath & "Attachments\报表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\报表.doc" '指定目标文件
Dim wrt As New WordReport(Tables("表a"),tm,fl) '定义一个WordReport

If e.Col.Name = "总计" Then
    wrt.BuildOne(r)
    wrt.Show() '显示报表
    
End If

说未知编译错误?!?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/14 16:33:00 [只看该作者]

2楼的代码,就是打印你选定的行

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3905 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2018/10/14 16:44:00 [只看该作者]

 Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件

老师,这个另存的文件名,有没有办法能做成可以调用表中日期字段和姓名字段的办法?
就是,根据当前行生成的列的内容,保存时自动生成文件名:
20180920广东何总出库单
20180921山东李总出库单

现在只能是固定死的名称

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/14 18:26:00 [只看该作者]

参考

 

Dim fl As String = ProjectPath & "Reports\" & tables("表A").current("第一列") & ".doc" '指定目标文件


 回到顶部