//Spread for Windows Forms
FarPoint.CalcEngine.ErrorExpression err = new FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.DivideByZero);
fpSpread1.ActiveSheet.AddCustomName("Alpha", err);
fpSpread1.ActiveSheet.SetFormula(0, 0, "Alpha * 10");
FarPoint.CalcEngine.Expression expr = fpSpread1.ActiveSheet.GetCustomName("Alpha");
if (expr is FarPoint.CalcEngine.ErrorExpression)
{
FarPoint.CalcEngine.ErrorExpression ex = ((FarPoint.CalcEngine.ErrorExpression)(expr));
MessageBox.Show("The error is " + ex.ErrorValue.ToString());
}
//Spread for Web Forms
FarPoint.CalcEngine.ErrorExpression err = new FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.DivideByZero);
FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Web.Spread.Model.DefaultSheetDataModel();
dataModel = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel;
dataModel.AddCustomName("Alpha", err);
FpSpread1.Sheets[0].SetFormula(0, 0, "Alpha * 10");
FarPoint.CalcEngine.Expression expr = dataModel.GetCustomName("Alpha");
if (expr is FarPoint.CalcEngine.ErrorExpression)
{
FarPoint.CalcEngine.ErrorExpression ex = ((FarPoint.CalcEngine.ErrorExpression)(expr));
TextBox1.Text = "The error is " + ex.ErrorValue.ToString();
}
'Spread for Windows Forms
Dim err As New FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.DivideByZero)
FpSpread1.ActiveSheet.AddCustomName("Alpha", err)
FpSpread1.ActiveSheet.SetFormula(0, 0, "Alpha")
Dim expr As FarPoint.CalcEngine.Expression = FpSpread1.ActiveSheet.GetCustomName("Alpha")
If TypeOf expr Is FarPoint.CalcEngine.ErrorExpression Then
Dim ex As FarPoint.CalcEngine.ErrorExpression = CType(expr, FarPoint.CalcEngine.ErrorExpression)
MessageBox.Show("The error is " & ex.ErrorValue.ToString())
End If
'Spread for Web Forms
Dim err As New FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.DivideByZero)
Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel
dataModel = FpSpread1.ActiveSheetView.DataModel
dataModel.AddCustomName("Alpha", err)
FpSpread1.Sheets(0).SetFormula(0, 0, "Alpha")
Dim expr As FarPoint.CalcEngine.Expression = dataModel.GetCustomName("Alpha")
If TypeOf expr Is FarPoint.CalcEngine.ErrorExpression Then
Dim ex As FarPoint.CalcEngine.ErrorExpression = CType(expr, FarPoint.CalcEngine.ErrorExpression)
TextBox1.Text = "The error is " & ex.ErrorValue.ToString()
End If