如果存在图像文件，如何在componetone报告中签入vbscript？
我有一个数据库，有两个可选的图片文件名pic1和pic2。如果第一个图片文件不存在，我想打印第二个 在报告的onFormat事件中，我希望执行以下操作： 如果文件存在（pic1） 然后 article.Picture=pic1 其他的 article.Picture=Pic2 恩迪夫如果存在图像文件，如何在componetone报告中签入vbscript？,vbscript,componentone,Vbscript,Componentone,我有一个数据库，有两个可选的图片文件名pic1和pic2。如果第一个图片文件不存在，我想打印第二个 在报告的onFormat事件中，我希望执行以下操作： 如果文件存在（pic1） 然后 article.Picture=pic1 其他的 article.Picture=Pic2 恩迪夫 但是我没有成功，因为componentone vbscript没有很好的文档记录更新 C1Report VBScrit引擎不支持CreateObject，因此报表设计器不支持此操作 VBScript中没有内置IO
但是我没有成功，因为componentone vbscript没有很好的文档记录更新 C1Report VBScrit引擎不支持CreateObject，因此报表设计器不支持此操作
VBScript中没有内置IO命令。相反，您可以使用FileSystemObject来检查这一点。使用此函数确定文件是否存在： 函数FileExists（filePath） Dim fso，存在 设置fso=CreateObject（“Scripting.FileSystemObject”） 如果（fso.FileExists（filePath）），则 存在=真 其他的 存在=错误 如果结束 FileExists=exists 端函数
在VBScript编辑器中使用此功能您使用的是C1Report还是FlexReport？这是给设计师的吗？没有所谓的C1 VBScript，只有带有从C1Report/FlexReport呈现的字段的VBScript。我使用的是c1Reports Build 2/4.6.20112.54408，并且有代码文章。在OnFormat事件（在脚本编辑器窗口中）中Picture=pic1，这很有效！pic1是来自数据库字段的pic的完整路径。但是现在我想检查文件是否存在，如果不存在，我想使用来自数据库字段的名为pic2的pic。请参考答案。我已经尝试过了，但是c1reports似乎不支持函数。如果将此代码放在onFormat中：Function FileExists（filePath）Dim fso，exists Set fso=CreateObject（“Scripting.FileSystemObject”），如果（fso.FileExists（filePath））然后exists=True否则exists=False结束如果FileExists=exists结束函数如果FileExists（bilddatei）=True然后ArtBild.Picture=bilddatei ELSE ArtBild.Picture=bildaternative END如果为什么不将此函数添加为全局脚本？
VBScript编辑器>脚本：Report.GlobalScripts