我相信这是稍后在.NET程序集中添加的较新的API。

此外，您正在使用的RDC组件以CR XI R2（CR 9的早期版本）结束。现在，任何CR版本均不再支持该组件。 因此，不允许您分发它或在应用程序中使用它。

VB 6和CR 9都已到期，因此是时候升级到VS 2010或更高版本了，而不是Express版本，并使用CR for VS了，它现在适用于所有VS和CR版本。

您可以从这里获取它：

https： //wiki.scn.sap.com/wiki/display/BOBJ/Crystal+Reports%2C+Developer+for+Visual+Studio+Downloads

Don

将iSectionCounter设置为整数

将iObjectCounter设置为整数

dim sUsedFields作为字符串

将水晶作为CRAXDRT.Application

设置oCrystal =新CRAXDRT.Application

将oReport视作CRAXDRT.Report

设置oReport = oCrystal.OpenReport（" C：\ myreport.rpt"）

对于iSectionCounter = 1到oReport.Sections.Count

带有oReport.Sections（iSectionCounter）

对于iObjectCounter = 1到.ReportObjects.Count

带有.ReportObjects

If .Item（iObjectCounter）.Kind = crFieldObject 然后

Dim sF as CRAXDRT.FieldObject

设置sF = .Item（iObjectCounter）

如果sF.Field.UsedCount> 0，那么（我找不到UsedCount属性或其他内容）

fFieldUsed = True

如果结束

结束于

结尾为

下一个iObjectCounter

结尾为

下一个iSectionCounter