FarPoint.Win.Spread.Model.IRangeSupport irs;
DialogResult dlg;
Random r = new Random();
int i, j;
for (i = 0; i<=50; i++)
{
for (j = 0; j<=3; j++)
fpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString());
}
irs = (FarPoint.Win.Spread.Model.IRangeSupport)fpSpread1.ActiveSheet.Models.Data;
dlg = MessageBox.Show("Do you want to add some columns and rows?", "Clear", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
irs.Clear(0, 0, 10, 2);
}
Dim irs As FarPoint.Win.Spread.Model.IRangeSupport
Dim dlg As DialogResult
Dim r As New Random()
Dim i, j As Integer
For i = 0 To 50
For j = 0 To 3
FpSpread1.ActiveSheet.SetValue(i, j, r.Next(1, 200).ToString())
Next j
Next i
irs = FpSpread1.ActiveSheet.Models.Data
dlg = MessageBox.Show("Do you want to clear some data?", "Clear", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
irs.Clear(0, 0, 10, 2)
End If