Hi.
Someone can help me to convert this VB6 code to use it in visual foxpro 8.0 ??
'Preview commandbutton
Private Sub Command1_Click()
Dim ocrr As CRAXDRT.Application
Dim orpt As CRAXDRT.Report
Set ocrr = CreateObject("CrystalRuntime.application")
Set orpt = ocrr.openreport("C:\report\prova8.rpt")
Me.CRViewer91.ReportSource = orpt
Me.CRViewer91.ViewReport
End Sub
'Activex CRViewer clicked event
Private Sub CRViewer91_Clicked(ByVal x As Long, ByVal y As Long, EventInfo As Variant, UseDefault As Boolean)
Dim oeve As CRVIEWER9LibCtl.CRVEventInfo
Set oeve = EventInfo
Set fcol = oeve.GetFields 'fields collection
Set fiel = fcol.Item(fcol.SelectedFieldIndex)
MsgBox fiel.Value
End Sub
thanks !!
franco
francofelosi@acut.it