怎么样让Access窗体图片控件从多个文件夹依次找图片显示

roych

else部分还是加上再看看吧。

1. Sub Form_Current()
   
2. Dim PhotoPath As String
   
3. Dim PhotoPath2 As String
   
4. PhotoPath = CurrentProject.Path & "\主图" & Me![产品编号] & ".jpg"
   
5. PhotoPath2 = CurrentProject.Path & "\副图" & Me![产品编号] & ".jpg"
   
6. If Dir(PhotoPath) = "" Then
   
7. PhotoPath = PhotoPath2
   
8. ElseIf Dir(PhotoPath2) = "" Then
   
9. PhotoPath = CurrentProject.Path & "\2.jpg"
   
10. Else
    
11. PhotoPath=""
    
12. End If
    
13. Me.pic.Picture = PhotoPath
    
14. End Sub

复制代码