IsDataChanged: Boolean;
The IsDataChanged property returns the attribute of modified data in the express report.
Executing the example requires a form with the Button1 button, the UiErAnalyzer component named UiErAnalyzer1 and the TabSheetBox component named TabSheetBox1. Add links to the Express, Pivot and Ui system assemblies.
Class SAMPLEForm: Form
UiErAnalyzer1: UiErAnalyzer;
TabSheetBox1: TabSheetBox;
Button1: Button;
olap: IEaxAnalyzer;
pivot: IPivot;
Sub SAMPLEFormOnCreate(Sender: Object; Args: IEventArgs);
Begin
olap := UiErAnalyzer1.ErAnalyzer;
olap.EnableEdit := True;
pivot := olap.Pivot;
End Sub SAMPLEFormOnCreate;
Sub UiErAnalyzer1OnBeforeDataRefresh(Sender: IUiErAnalyzer; Args: IUiErAnalyzerDataRefreshEventArgs);
Begin
If Args.IsDataChanged Then
If WinApplication.ConfirmationBox("Data is changed and will be lost on updating, save changes?") Then
Args.SaveChangedData := True;
End If;
Else
WinApplication.InformationBox("Data is not changed");
End If;
End Sub UiErAnalyzer1OnBeforeDataRefresh;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
pivot.Refresh;
End Sub Button1OnClick;
End Class SAMPLEForm;
On executing the example, make changes in a data area cell, and click the Button1 button. The following message appears: Data was changed and will be lost on refreshing, do you want to save the data? If the answer is positive, changes are saved.
See also: