Public Function GetDataTable() As DataTable

Dim instance As DefaultSheetDataModel
Dim value As DataTable
 
value = instance.GetDataTable()

public DataTable GetDataTable()

 private void Page_Load(object sender, System.EventArgs e)
   {
   if (this.IsPostBack) return;

   DataTable dt = new DataTable("FarPoint");
   dt.Columns.Add("Product");
   dt.Rows.Add(new Object[] {"Spread"});
   dt.Rows.Add(new Object[] {"Input Pro"});
   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("FarPoint")
   dt.Columns.Add("Product")
   dt.Rows.Add(New Object() {"Spread"})
   dt.Rows.Add(New Object() {"Input Pro"})
   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