[求助]合同报表完善 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]合同报表完善

共有5905人关注过本帖树形打印复制链接主题：[求助]合同报表完善

老鼠

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：364 积分：3637 威望：0 精华：0 注册：2008/11/2 21:50:00

[求助]合同报表完善 发帖心情

Post By：2022/7/19 16:03:00 [只看该作者]

以上是操作窗口图片与代码，另是合同报表格式。问题是如果才能让报表中的填写内容提取来源是窗口内容。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:110.zip

[此贴子已经被作者于2022/7/19 16:07:13编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/19 16:18: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.ReplaceOne("[合同编号]",e.Form.Controls("合同编号").text)

wrt.ReplaceOne("[姓名]",e.Form.Controls("姓名").text)

……
wrt.BuildOne(Tables("基础信息.签订合同").current)

wrt.Show() '显示报表

老鼠

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：364 积分：3637 威望：0 精华：0 注册：2008/11/2 21:50:00

Post By：2022/7/23 12:31:00 [只看该作者]

感谢有点蓝老师的帮助，但我报表中的数据来自不同的两个表，这个应该如何写呢？

如：报表中的[性别]、[住址]、[联系电话]是来自表“基础数据”，而[合同起始日]、[合同终止日]等又是来自表“签订合同”；而这些数据正好也是两个表中都没有的。都是独立存在各自的表中的。当然两表是关系表，但只关联了姓名与身份证号码。

[此贴子已经被作者于2022/7/23 12:33:30编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/23 13:51:00 [只看该作者]

这个直接填充的是窗口控件输入的值，和表格有什么关系？

如果要从表里获取数据，参考：

如果有关联，获取关联表数据参考：

GetChildRows	返回一个DataRow集合，集合中包括指定子表中和该行对应的全部关联行
GetParentRow	返回该行在指定父表中对应的关联行

如果没有关联，根据关联列到对应的表通过Find、Select查询到对应的行数据，然后再替换

主题：[求助]合同报表完善