Gets the name of the child data relation at the specified position.
Syntax
Visual Basic (Declaration) | |
---|
Function GetChildRelation( _
ByVal index As Integer _
) As String |
Parameters
- index
- Index to the child relation
Return Value
String containing the data relation name
Example
This example returns the name of the child data relation at the specified index.
C# | Copy Code |
---|
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; |
Visual Basic | Copy Code |
---|
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 |
Requirements
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8
See Also