FarPoint.CalcEngine Assembly > FarPoint.CalcEngine Namespace > CalcError Class : DivideByZero Property |
'Declaration Public Shared ReadOnly Property DivideByZero As CalcError
public static CalcError DivideByZero {get;}
//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
Target Platforms: Windows 7, Windows 8, Windows Vista, Windows Server 2000, Windows 2000 Professional, Windows XP Professional, Windows NT 4.0 Workstation, SP6, Windows NT 4.0 Server, SP6