FarPoint.Web.Spread.Model.BaseSheetDataModel bdm;
int c, r;
bdm = (FarPoint.Web.Spread.Model.BaseSheetDataModel)FpSpread1.ActiveSheetView.DataModel;
bdm.ColumnCount = 5;
bdm.RowCount = 5;
bdm.SetValue(0, 0, "Not Empty");
c = bdm.NonEmptyColumnCount;
r = bdm.NonEmptyRowCount;
Response.Write("There are " + c + " non empty columns and " + r + " non empty rows.");
Dim bdm As FarPoint.Web.Spread.Model.BaseSheetDataModel
Dim c, r As Integer
bdm = FpSpread1.ActiveSheetView.DataModel
bdm.ColumnCount = 5
bdm.RowCount = 5
bdm.SetValue(0, 0, "Not Empty")
c = bdm.NonEmptyColumnCount
r = bdm.NonEmptyRowCount
Response.Write("There are " & c & " non empty columns and " & r & " non empty rows.")