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"]); fpSpread1.ActiveSheetView.DataSource = ds; fpSpread1.ActiveSheetView.DataMember = "Customers"; fpSpread1.ActiveSheetView.SetColumnWidth(2, 150); fpSpread1.ActiveSheetView.ExpandRow(1, true); FarPoint.Web.Spread.SheetView sv; sv = fpSpread1.ActiveSheetView.GetChildView(1,0); listBox1.Items.Add(sv.Parent.ToString());
Dim ds As 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", Type.GetType("System.String")), New DataColumn("FirstName", Type.GetType("System.String")), New DataColumn("ID", Type.GetType("System.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", Type.GetType("System.String")), New DataColumn("Owner", Type.GetType("System.Int32")), New DataColumn("State", Type.GetType("System.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")) FpSpread1.ActiveSheetView.DataSource = ds FpSpread1.ActiveSheetView.DataMember = "Customers" FpSpread1.ActiveSheetView.SetColumnWidth(2, 150) FpSpread1.ActiveSheetView.ExpandRow(1, True) Dim sv As FarPoint.Web.Spread.SheetView sv = FpSpread1.ActiveSheetView.GetChildView(1, 0) ListBox1.Items.Add(sv.Parent.ToString())