以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  生成word报表有没有系统命令？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126108)
--  作者：初心不改再说未来
--  发布时间：2018/10/14 16:15:00
--  生成word报表有没有系统命令？
除了下面这些之外，想根据当前选定的行，生成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()专业报表管理
--  作者：初心不改再说未来
--  发布时间：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编辑过]
--  作者：初心不改再说未来
--  发布时间：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

说未知编译错误？！？
--  作者：有点甜
--  发布时间：2018/10/14 16:33:00
--  
2楼的代码，就是打印你选定的行
--  作者：初心不改再说未来
--  发布时间：2018/10/14 16:44:00
--  
 Dim fl As String = ProjectPath & "Reports\\出库单.doc" \'指定目标文件

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

现在只能是固定死的名称
--  作者：有点甜
--  发布时间：2018/10/14 18:26:00
--  

参考

 

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