Vb6 - Ifrxcrossview.addvaluesvb6
День добрый.
Следующий код отрабатывает, но не добавляет данные в отчет:
Следующий код отрабатывает, но не добавляет данные в отчет:
Dim FRX As IfrxActivePreviewForm
Dim frCustomCross As IfrxCustomCrossView
Set FRX = frmFR.FRX
FRX.Report.LoadReportFromFile (App.path & "abc.fr3")
Set frCustomCross = FRX.Report.FindObjectEx("Cross1")
frCustomCross.AddValuesVB6 Array("1"), Array(""), Array("")
frCustomCross.AddValuesVB6 Array("2"), Array(""), Array("")
frCustomCross.AddValuesVB6 Array("3"), Array(""), Array("")