private void Page_Load(object sender, System.EventArgs e)
{
if (this.IsPostBack) return;
DataTable dt = new DataTable("GrapeCity");
dt.Columns.Add("Product");
dt.Rows.Add(new Object[] {"Spread"});
dt.Rows.Add(new Object[] {"InputMan"});
DataRow nrow;
nrow = dt.NewRow();
nrow["Product"] = "To Be Announced";
dt.Rows.Add(nrow);
dt.AcceptChanges();
FarPoint.Web.Spread.Model.DefaultSheetDataModel dm = new FarPoint.Web.Spread.Model.DefaultSheetDataModel(dt);
FpSpread1.ActiveSheetView.DataModel = dm;
FpSpread1.ActiveSheetView.Columns[0].Width = 240;
DataRowView drv;
DataView dv;
drv = dm.GetDataRow(1);
dv = dm.GetDataView();
ListBox1.Items.Add(Convert.ToString(drv.RowVersion));
ListBox1.Items.Add(Convert.ToString(dm.GetDataTable()));
ListBox1.Items.Add(Convert.ToString(dv.Count));
}
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Me.IsPostBack Then Return
Dim dt As New DataTable("GrapeCity")
dt.Columns.Add("Product")
dt.Rows.Add(New Object() {"Spread"})
dt.Rows.Add(New Object() {"InputMan"})
Dim nrow As DataRow
nrow = dt.NewRow()
nrow("Product") = "To Be Announced"
dt.Rows.Add(nrow)
dt.AcceptChanges()
Dim dm As FarPoint.Web.Spread.Model.DefaultSheetDataModel = New FarPoint.Web.Spread.Model.DefaultSheetDataModel(dt)
FpSpread1.ActiveSheetView.DataModel = dm
FpSpread1.ActiveSheetView.Columns(0).Width = 240
Dim drv As DataRowView
Dim dv As DataView
drv = dm.GetDataRow(1)
dv = dm.GetDataView()
ListBox1.Items.Add(drv.RowVersion.ToString())
ListBox1.Items.Add(dm.GetDataTable.ToString)
ListBox1.Items.Add(dv.Count.ToString)
End Sub