Dim Report As New CrystalReport1Private Sub Form_Load()
Report.Sections(1).AddLineObject(1 * 1250, 0, 1, 280).LineStyle = crLSSingleLine
'去掉以上代码,vb提示无错误。
'加以上代码vb提示"未启用创建功能"
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefaultEnd SubPrivate Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidthEnd Sub请问这个错误需要怎样解决?