FarPoint.Win.Spread Assembly > FarPoint.Win.Spread.Model Namespace > IChildModelSupport Interface : GetChildRelation Method |
'Usage Dim instance As IChildModelSupport Dim index As Integer Dim value As String value = instance.GetChildRelation(index)
string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source= " + Application.StartupPath + "\\Patients2000.mdb"; string sqlStr = "SELECT * FROM Patients"; System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(conStr); DataSet ds = new DataSet(); System.Data.OleDb.OleDbDataAdapter daCust = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn); daCust.Fill(ds, "Patients"); System.Data.OleDb.OleDbDataAdapter daOrder = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn); daOrder.Fill(ds, "Appointment"); DataRelation rel = new DataRelation("PatientRel", ds.Tables["Patients"].Columns["LName"], ds.Tables["Appointment"].Columns["LName"]); ds.Relations.Add(rel); fpSpread1.DataSource = ds; FarPoint.Win.Spread.Model.IChildModelSupport cModel; FarPoint.Win.Spread.Model.ISheetDataModel iModel; string s; cModel = (FarPoint.Win.Spread.Model.IChildModelSupport)fpSpread1.ActiveSheet.Models.Data; s = cModel.GetChildRelation(0); label1.Text = "The name of the child relation is " + s;
Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source= " & Application.StartupPath & "\Patients2000.mdb" Dim sqlStr As String = "SELECT * FROM Patients" Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(conStr) Dim ds As DataSet = New DataSet() Dim daCust As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn) daCust.Fill(ds, "Patients") Dim daOrder As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn) daOrder.Fill(ds, "Appointment") Dim rel = New DataRelation("PatientRel", ds.Tables("Patients").Columns("LName"), ds.Tables("Appointment").Columns("LName")) ds.Relations.Add(rel) FpSpread1.DataSource = ds Dim cModel As FarPoint.Win.Spread.Model.IChildModelSupport Dim iModel As FarPoint.Win.Spread.Model.ISheetDataModel Dim s As String cModel = FpSpread1.ActiveSheet.Models.Data s = cModel.GetChildRelation(0) Label1.Text = "The name of the child relation is " & s
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8