DataSet ds = new System.Data.DataSet();
DataTable name;
DataTable city;
name = ds.Tables.Add("Customers");
name.Columns.AddRange(new DataColumn[] {new DataColumn("LastName", typeof(string)), new DataColumn("FirstName", typeof(string)),
new DataColumn("ID", typeof(Int32))});
name.Rows.Add(new object[] {"Fielding", "William", 0});
name.Rows.Add(new object[] {"Williams", "Arthur", 1});
name.Rows.Add(new object[] {"Zuchini", "Theodore", 2});
city = ds.Tables.Add("City/State");
city.Columns.AddRange(new DataColumn[] {new DataColumn("City", typeof(string)), new DataColumn("Owner", typeof(Int32)), new
DataColumn("State", typeof(string))});
city.Rows.Add(new object[] {"Atlanta", 0, "Georgia"});
city.Rows.Add(new object[] {"Boston", 1, "Mass."});
city.Rows.Add(new object[] {"Tampa", 2, "Fla."});
ds.Relations.Add("City/State", name.Columns("ID"), city.Columns("Owner"));
FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Web.Spread.Model.DefaultSheetDataModel(name.Rows.Count,
name.Columns.Count);
dataModel.DataSource = ds;
FpSpread1.ActiveSheetView.DataModel = dataModel;
FpSpread1.ActiveSheetView.ExpandRow(0, true);
string s;
s = dataModel.GetChildRelation(0);
Response.Write(s);
Dim ds = New System.Data.DataSet
Dim name As DataTable
Dim city As DataTable
name = ds.Tables.Add("Customers")
name.Columns.AddRange(New DataColumn() {New DataColumn("LastName", GetType(String)), New DataColumn("FirstName", GetType(String)),New
DataColumn("ID", GetType(Int32))})
name.Rows.Add(New Object() {"Fielding", "William", 0})
name.Rows.Add(New Object() {"Williams", "Arthur", 1})
name.Rows.Add(New Object() {"Zuchini", "Theodore", 2})
city = ds.Tables.Add("City/State")
city.Columns.AddRange(New DataColumn() {New DataColumn("City", GetType(String)), New DataColumn("Owner", GetType(Int32)),New
DataColumn("State", GetType(String))})
city.Rows.Add(New Object() {"Atlanta", 0, "Georgia"})
city.Rows.Add(New Object() {"Boston", 1, "Mass."})
city.Rows.Add(New Object() {"Tampa", 2, "Fla."})
ds.Relations.Add("City/State", name.Columns("ID"), city.Columns("Owner"))
Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel(name.Rows.Count, name.Columns.Count)
dataModel.DataSource = ds
FpSpread1.ActiveSheetView.dataModel = dataModel
FpSpread1.ActiveSheetView.ExpandRow(0, True)
Dim s As String
s = dataModel.GetChildRelation(0)
Response.Write(s)