' 创建一个新的报表实例
Dim oReport As New CrystalReport1
Private Sub Form_Load()
' 声明一个新的OLE对象
Dim oOleObject As craxdrt.OLEObject
' 声明一个普通对象
Dim oObject As Object
' 声明一个节对象.
Dim oSection As craxdrt.Section
' 当OLE对象找到时,这个变量设为TRUE.
Dim bOle As Boolean
bOle = False
' 在每个节中寻找所有报表对象
For Each oSection In oReport.Sections
For Each oObject In oSection.ReportObjects
' 找到第一个OLE对象.
If oObject.Kind = craxdrt.crOLEObject Then
' 获取图片对象然后退出循环.
Set oOleObject = oObject