Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10)
Dim dlg As DialogResult
dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1)
dataModel.SetFormula(1, 1, "TWICESUM")
dataModel.SetValue(0, 0, 10)
dataModel.SetValue(1, 0, 10)
FpSpread1.ActiveSheet.Models.Data = dataModel
dlg = MessageBox.Show("Do you want to remove a custom name??", "RemoveCustomName", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
dataModel.RemoveCustomName("TWICESUM")
dataModel.RecalculateAll()
End If
FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5);
DialogResult dlg;
dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1);
dataModel.SetFormula(1, 1, "TWICESUM");
dataModel.SetValue(0, 0, 10);
dataModel.SetValue(1, 0, 10);
fpSpread1.ActiveSheet.Models.Data = dataModel;
dlg = MessageBox.Show("Do you want to remove a custom name??", "RemoveCusotmName", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
dataModel.RemoveCustomName("TWICESUM");
dataModel.RecalculateAll();
}