|
我的ACCESS数据库中大约有100条记录,里面保存着图片的路径名,在打开全部记录图片报表时,竟然要花费10多分钟才能显示出来50多页,报表里的代码如下,有没有更好的办法解决速度问题?
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo Error_Form_Current
If Trim(花样路径.Value) = "" Then
Me.image1.Picture = ""
Exit Sub
End If
If Len(花样路径.Value) > 0 Then
Me.image1.Visible = True
Me.image1.Picture = CurrentProject.Path & "\pic\" & 花样路径.Value
Else
Me.image1.Picture = ""
Me.image1.Visible = False
End If
Exit_Form_Current:
Exit Sub
Error_Form_Current:
Resume Exit_Form_Current
End Sub |
|