yinyt　发表于：2010-06-24 08:12:34 　

我的人员档案管理，照片可以在窗体里显示出来，可如何让照片在报表里显示出来呢，请高手帮忙，谢谢！

Top

yinyt 发表于：2010-06-24 08:13:51

这是例子

点击下载此附件

Top

赵文斌发表于：2010-06-24 09:34:49

点击下载此附件

Top

王樵民发表于：2010-06-24 09:39:52

对例子做了一下修改，能显示出照片。

改动了一下几个方面：

1、将表中照片字段中的路径改为当前路径下的\图片\目录中；

2、将照片改成jpg格式，以便显示的清晰一些；

3、在报表中加了一个图像控件，名称为Image1，其大小应和照片的大小相同，并增加了表中照片的字段，设置其属性为不可见；

4、在报表主体的格式化事件中加入了如下代码：

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err1
Me.Image1.Picture = CurrentProject.path & [照片]
err1:
End Sub

参见附件中的“雇员1”报表。

点击下载此附件

Top

yinyt 发表于：2010-06-24 13:13:49

真的不错，但第一条不理解，也感觉别扭，因为我的照片路径是通过“雇员”窗体里的“添加/更改”按钮获取的，那么“添加/更改”按钮的代码该如何改，才能得到“当前路径下的\图片\目录”呢？

为什么用“添加/更改”按钮获取的图片路径在窗体里能显示，在报表里却显示不了呢？

Top

yinyt 发表于：2010-06-24 13:33:05

还有一个问题，一旦有空记录，比如某人没有照片，报表里不显示空白，而显示上一个人的照片。

Top

yinyt 发表于：2010-06-24 13:33:44

点击下载此附件

Top

王樵民发表于：2010-06-24 14:11:02

报表主体格式化事件代码做以下修改：

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err1
If Len(Nz([照片])) > 0 Then
If Mid([照片], 1, 4) = "\图片\" Then '按照片的当前路径加默认路径“\图片\”处理
Me.Image1.Picture = CurrentProject.path & [照片]
Else
Me.Image1.Picture = [照片] '按照片的实际路径处理
End If
Else
Me.Image1.Visible = False
End If
err1:
End Sub

Top

赵文斌发表于：2010-06-24 14:38:36

应该还有问题，保存的路径好像是全部。

点击下载此附件

那么“添加/更改”按钮的代码该如何改，才能得到“当前路径下的\图片\目录”呢？ ----附件中标注的可以实现。

Top

王樵民发表于：2010-06-24 15:57:46

请参见王三平文章“模块——打开文件夹”

http://www.accessoft.com/article-show.asp?id=4376

Top

yinyt 发表于：2010-06-24 16:23:02

不好意思王樵民版主，对您的帮助我心存感激，但毕竟达到最终效果的是赵文斌先生，我只好把最佳答案给他了。

Top

总记录：10篇页次：1/1 9 1 :

Access交流中心

[5分]如何在报表里显示照片？

请参见王三平文章“模块——打开文件夹”