FarPoint.CalcEngine.Expression ex;
FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10);
dataModel.AddCustomName("TWICESUM", new FarPoint.CalcEngine.DoubleExpression(10));
dataModel.SetFormula(1, 1, "TWICESUM");
fpSpread1.ActiveSheet.Models.Data = dataModel;
ex = dataModel.GetExpression(1, 1);
dataModel.EvaluateExpression(1, 1, ex);
MessageBox.Show("The expression is " + ex.ToString());
Dim ex As FarPoint.CalcEngine.Expression
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10)
dataModel.AddCustomName("TWICESUM", New FarPoint.CalcEngine.DoubleExpression(10))
dataModel.SetFormula(1, 1, "TWICESUM")
FpSpread1.ActiveSheet.Models.Data = dataModel
ex = dataModel.GetExpression(1, 1)
dataModel.EvaluateExpression(1, 1, ex)
MessageBox.Show("The expression is " & ex.ToString())