以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]父表图片有筛选条件的引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88196)
--  作者：527383691
--  发布时间：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
--  发布时间：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()
--  作者：527383691
--  发布时间：2016/7/28 18:38:00
--  

这个代码是在命令窗口里面编写还是在报表事件里面呢？

 
--  作者：527383691
--  发布时间：2016/7/28 18:41:00
--  

Dim sum As Integer
For Each r As Row In Tables("订单").rows \'逐行生成报表

这个  是所有记录都生成报表还是选中的记录呢？

我只想选中的记录生成报表
--  作者：527383691
--  发布时间：2016/7/28 21:10:00
--  
还是没弄懂~~饿哦需要的图片位置是动态的啊~要怎么提取出来n呢？
--  作者：Hyphen
--  发布时间：2016/7/29 9:37:00
--  
上例子做