FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10);
dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1);
dataModel.AddCustomName("TwiceProduct", "2*A1*A2", 2, 2);
dataModel.SetFormula(1, 1, "TWICESUM");
dataModel.SetFormula(2, 2, "TwiceProduct");
dataModel.SetValue(0, 0, 10);
dataModel.SetValue(1, 0, 10);
fpSpread1.ActiveSheet.Models.Data = dataModel;
IEnumerator enm;
enm = dataModel.GetCustomNameEnumerator();
while (enm.MoveNext())
{
listBox1.Items.Add(enm.Current);
}
Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10)
dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1)
dataModel.AddCustomName("TwiceProduct", "2*A1*A2", 2, 2)
dataModel.SetFormula(1, 1, "TWICESUM")
dataModel.SetFormula(2, 2, "TwiceProduct")
dataModel.SetValue(0, 0, 10)
dataModel.SetValue(1, 0, 10)
FpSpread1.ActiveSheet.Models.Data = dataModel
Dim enm As IEnumerator
enm = dataModel.GetCustomNameEnumerator()
While enm.MoveNext()
ListBox1.Items.Add(enm.Current)
End While