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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]父表图片有筛选条件的引用

共有1891人关注过本帖树形打印复制链接主题：[求助]父表图片有筛选条件的引用

527383691

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

加好友

发短信

等级：幼狐帖子：118 积分：966 威望：0 精华：0 注册：2016/7/12 15:44:00

[求助]父表图片有筛选条件的引用 发帖心情

Post By：2016/7/28 16:59:00 [只看该作者]

父表

班级	人数	学生照片
2-1	3
2-2	2

子表

学号	班级
2-1-1	2-1
2-1-2	2-1
2-1-3	2-1
2-2-1	2-2

关联列是班级，

学号2-1-N，班级是2-1，学生的照片在【学生照片】列中位置同学号相关，是第2*N-2张照片

比如学号2-1-3的学生的照片在[学生照片]列的第4张（2*3-2=4）

我想在用子表生成WORD的报表时要引用父表中对应的学生照片，

需要在Word报表模板里面使用怎样的表达式？

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/7/28 17:32:00 [只看该作者]

只能在代码中解析出来，然后用ReplaceWithImage替换图片。最好是用学号做图片的名称，就不用解析了

Dim tm As String = ProjectPath & "Attachments\订单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\订单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) '定义一个WordReport
Dim sum As Integer
For Each r As Row In Tables("订单").rows '逐行生成报表
    sum = sum + r("数量") '逐行累计
    wrt.ReplaceWithImage("[图片]","f:\abc.jpg",200,100)
    wrt.BuildOne(r)
Next
wrt.Show()