Foxtable(狐表)用户栏目专家坐堂 → [求助]word报表打印问题?


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

主题:[求助]word报表打印问题?

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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
[求助]word报表打印问题?  发帖心情 Post By:2018/3/29 20:56:00 [只看该作者]

聘用合同打印问题如何解决?如何像excel报表一样解决?选定哪行就打印哪行合同信息.

 

附件怎么传不上来.我再做一个简易的试下

 

 

问题:如何打印主表的关联表中的选定行报表.

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

[此贴子已经被作者于2018/3/29 21:21:45编辑过]

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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/29 21:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看
实在没有办法,模板传不上来.服务器报错.
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.jpg
图片点击可在新窗口打开查看
word模板也传不上来.我不知道怎么办了?

 

 


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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/29 21:04:00 [只看该作者]

这是按钮代码: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() '显示报表

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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/29 21:05:00 [只看该作者]

 

编  号:     <Index>    



涟源市杨市镇中心卫生院劳动聘用合同










聘用单位(甲方):  涟源市杨市镇中心卫生院  

 

 

受聘人员(乙方):        [姓名]

 

 

 

 

 

 

 

 

本合同最终解释权归涟源市杨市镇中心卫生院所有

 

甲方(聘用单位)

名称:    涟源市杨市镇中心卫生院  

法定代表或委托代理人:        

地址:  涟源市杨市镇新马路51    邮政编码: 417124

联系电话:  0738-4563339 


乙方(受聘人员)

      姓名:    [姓名]        性别:  [性别]   

   身份证号码: [公民身份号码]

      住址:[详细通讯地址]

      联系电话:   [联系电话]


按照劳动法律法规要求,甲乙双方在平等自愿、协商一致的基础上,签订如下聘用合同条款,共同遵照履行。本合同自双方签订之日起生效。

一、     聘用合同日期

本合同日期自<format([聘任起始日期],"yyyy年MM月dd日")>至<format([聘任终止日期],"yyyy年MM月dd日")>止。

二、     聘用岗位及职责要求

(一)甲方聘用乙方在[聘任合同,聘任部门]部门从事[聘任合同,聘任职务]岗位的工作。

(二)乙方服从甲方的工作安排,按照岗位职责要求按时完成甲方规定的工作任务,达到规定的工作质量标准。

三、岗位纪律

(一)甲方有权按照岗位职责,建立健全各项考核制度,做到职权清晰、责任明确、考核严格、奖惩分明。

(二)乙方应严格遵守国家和本地方的各项法律、法规,遵守甲方的各项规章制度和岗位纪律,服从甲方的领导和管理。

(三)乙方如违反规章制度和岗位纪律,甲方有权进行批评教育,按照有关规定给予相应处理。

四、岗位工作条件

(一)甲方提供乙方必需的工作条件和有效的劳动安全卫生防护措施。

(二)甲方严格实行本单位有关职工工作时间和工休假日等规定。

(三)甲方应当根据工作需要为乙方提供职务道德、专业技术、业务知识、安全生产和规章制度等方面的培训。

五、工资福利与社会保险待遇

(一)乙方的工资福利待遇按上级和单位规定执行(其中工资待遇中的“其他”与年终绩效,工作满壹年后增加)。

(二)乙方的绩效工资按单位规定的绩效考核办法,实行全成本核算制。

(三)甲方按照国家和地方的有关规定和甲方对临聘人员管理制度支付乙方社会保险金。支付程序、金额按甲方对临聘人员管理制度实施,统一办理有关手续。

六、附则

(一)甲乙双方协商一致,可以变更本合同的相关内容。

(二)甲乙双方协商一致,可以解除本合同。

(三)乙方有下列情形之一的,甲方可以随时单方面解除本合同:

      1、连续旷工超过10个工作日或者1年内累计旷工超过20个工作日的;

      2、乙方私自收费和私自买卖药品的;

      3、违反工作规定或者操作规程,发生责任事故,或者失职、渎职,造成严重后果的;

      4、严重扰乱工作秩序,致使甲方、其他单位工作不能正常进行的;

      5、被判处拘役、有期徒刑缓刑以及有期徒刑以上刑罚收监执行,或者被劳动教养的。

(四)因乙方本合同约定而造成甲方损失的,乙方应当按照甲方的实际损失承担赔偿责任。

(五)本合同一式三份,聘用单位、受聘人员(当事人)、劳动保障部门各执一份。


甲方(盖章)                          乙方(签字盖章)

法定代表人或 [&行政领导签章,100,48]                 

委托代理人(签字盖章)


年    月    日                    年    月    日

 

 

以上是整个合同报表的内容.


 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/29 21:06:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获2.jpg
图片点击可在新窗口打开查看
这是操作界面图

 


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


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/29 21:07:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获3.jpg
图片点击可在新窗口打开查看
这上关联表数据内容

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


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

代码改成这样,即可

 

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() '显示报表


 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/30 11:20:00 [只看该作者]

以下是引用有点甜在2018/3/29 21:42:00的发言:

代码改成这样,即可

 

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() '显示报表

按照这个代码出现以下提示不知道为何?.NET Framework 版本:2.0.50727.5477
Foxtable 版本:2018.3.9.1
错误所在事件:窗口,编辑窗口,Button40,Click
详细错误信息:
检索 COM 类工厂中 CLSID 为 {000209FF-0000-0000-C000-000000000046} 的组件时失败,原因是出现以下错误: 80040154。


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


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

1、

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54396&replyID=360697&skin=1

 

2、如果1无法修复,就重新安装一下wps。


 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:360 积分:3606 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/3/30 11:49:00 [只看该作者]

谢谢!已经处理好了。

 


 回到顶部