FarPoint.CalcEngine.ErrorExpression expr = new FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.NotAvailable);
FarPoint.CalcEngine.Expression[] args = {expr};
FarPoint.CalcEngine.FunctionExpression func = new FarPoint.CalcEngine.FunctionExpression(FarPoint.CalcEngine.FunctionInfo.IsErrorFunction,
args);
//Spread for Windows Forms
((FarPoint.Win.Spread.Model.IExpressionSupport)(fpSpread1.ActiveSheet.Models.Data)).SetExpression(0, 0, func);
MessageBox.Show(expr.Value.ToString());
//Spread for Web Forms
((FarPoint.Web.Spread.Model.IExpressionSupport)(FpSpread1.Sheets[0].DataModel)).SetExpression(0, 0, func);
TextBox1.Text = expr.Value.ToString();
Dim expr As New FarPoint.CalcEngine.ErrorExpression(FarPoint.CalcEngine.CalcError.NotAvailable)
Dim args() As FarPoint.CalcEngine.Expression = {expr}
Dim func As New FarPoint.CalcEngine.FunctionExpression(FarPoint.CalcEngine.FunctionInfo.IsErrorFunction, args)
'Spread for Windows Forms
CType(FpSpread1.ActiveSheet.Models.Data, FarPoint.Win.Spread.Model.IExpressionSupport).SetExpression(0, 0, func)
MessageBox.Show(expr.Value.ToString())
'Spread for Web Forms
CType(FpSpread1.Sheets(0).DataModel, FarPoint.Web.Spread.Model.IExpressionSupport).SetExpression(0, 0, func)
TextBox1.Text = expr.Value.ToString()