用图像控件无法打印图像

sam_yuan

一个程序: E盘有文件夹JPG,数据库有表NAME,二个字段:编号和姓名.一个窗体NAME
在窗体中建一个图像控件
Private Sub 照片_Click()
If Dir("e:\jpg\" & Me!编号 & ".bmp") <> "" Then
Me!照片.Picture = "e:\jpg\" & Me!编号 & ".bmp"
End If
End Sub
Private Sub 照片_AfterUpdate()
On Error Resume Next
Me![照片].Picture = CurrentProject.Path + "\jpg\" + Me![照片]
End Sub
这样数据库链接照片时数据库不会很大,不过就带来了一个问题:
我建一个报表,要打印编号、姓名、照片，可是无法在报表中显示和打印照片,请高手指教!!!谢谢!!!

zhuyiwen

应该是可以的,可能你编写的报表有错误!

李寻欢

在主体_Format事件里写代码就可以了，具体示例在下面：
http://www.accfans.net/bbs/Announce/announce.asp?BoardID=107&ID=35

sam_yuan

谢谢你寻欢，我知道怎么做了！如果图像是在网络上，是不是这样：
Private Sub 照片_Click()
If Dir("\\192.168.123.1\e\jpg\" & Me!编号 & ".bmp") <> "" Then
Me!照片.Picture = "\\192.168.123.1\e\jpg\" & Me!编号 & ".bmp"
End If
End Sub

[此贴子已经被作者于2004-1-2 21:02:58编辑过]

李寻欢

是这样的。

sam_yuan

Private Sub Form_Current()
        If Dir("e:\jpg\" & Me.id & ".jpg") = "" Then
            Image7.Picture = "e:\jpg\" & Me.id & ".jpg"
            MsgBox "该人员没有相片"
        Else
            Image7.Picture = ("e:\jpg\") & Me.id & ".jpg"
        End If
End Sub
当没有照片时,总提示出错"2220",请问怎么解决?

[此贴子已经被作者于2004-1-3 11:28:09编辑过]

李寻欢

做一个图片，取名为err.jpg,然后程序改一下，当找不到该人照片时用err.jpg代替
Private Sub Form_Current()
        If Dir("e:\jpg\" & Me.id & ".jpg") = "" Then
            Image7.Picture = "e:\jpg\err.jpg"            
        Else
            Image7.Picture = ("e:\jpg\") & Me.id & ".jpg"
        End If
End Sub

sam_yuan

不过还有个问题,当没有数据时,出错:
运行时错误`2427`
你输入的表达式没有数值