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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有1700人关注过本帖树形打印复制链接主题：[求助]

168448704

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

等级：婴狐帖子：47 积分：449 威望：0 精华：0 注册：2013/7/7 20:49:00

[求助]

Post By：2016/4/2 17:16:00 [只看该作者]

（1）本人在人事档案管理中有一个照片列，在表的BeforeAttachFile事件中设置代码如下：

'以下代码将照片放在命名为姓名的文件夹中

Select Case e.DataCol.Name

Case "照片" '如果在照片列插入文件

e.Subfolder = e.DataRow("姓名") '将此文件存放在目录名为姓名名称的子目录中.

End Select

在设计专业报表的时候，如何应用照片？

以下代码该如何编写

rt.Cells(1,9).Image = GetImage(rw("照片"))

（2）在专业报表中如何象Word一样引用子表中的某一行或某一单元格数据？

谢谢！

大红袍

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

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/3 11:43:00 [只看该作者]

1、

Dim fp As String = ProjectPath & "Attachments/" & rw("照片")
msgbox(fp)
rt.Cells(1,9).Image = GetImage(fp)

2、参考

168448704

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

等级：婴狐帖子：47 积分：449 威望：0 精华：0 注册：2013/7/7 20:49:00

Post By：2016/4/5 17:29:00 [只看该作者]

谢谢，照片打印问题已解决，报表问题还需学习。

主题：[求助]