如果存在图像文件，如何在componetone报告中检入vbscript？

Question

我有一个包含2个交替图片文件名pic1和pic2的数据库。如果第一个图片文件不存在，我想打印第二个。

在报告的onFormat事件中我想做的事情如下：

如果FileExists（pic1） 然后    article.Picture = PIC1 其他    article.Picture = PIC2 ENDIF

但是我没有成功，因为组件vbscript没有那么好记录

Answer 1

<强>更新

C1Report VBScrit引擎不支持CreateObject，因此报表设计器不支持此功能。

<德尔> VBScript中没有内置的IO命令。相反，您可以使用FileSystemObject来检查这一点。使用此函数可确定文件是否存在：

Function FileExists(filePath)
      Dim fso, exists
      Set fso = CreateObject("Scripting.FileSystemObject")
      If (fso.FileExists(filePath)) Then
        exists = True
      Else
        exists = False
      End If
      FileExists = exists
    End Function

在VBScript编辑器

中使用此功能