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

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

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

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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() '显示报表

有点蓝

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

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

Post By：2022/7/23 13:51:00 [显示全部帖子]

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

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

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

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

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

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