Function GetChildRelation( _
   ByVal index As Integer _
) As String

Dim instance As IChildModelSupport
Dim index As Integer
Dim value As String
 
value = instance.GetChildRelation(index)

string GetChildRelation( 
   int index
)

string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source= d:\\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.Web.Spread.Model.IChildModelSupport cModel;
FarPoint.Web.Spread.Model.ISheetDataModel iModel;
Dim s As String;
cModel = (FarPoint.Web.Spread.Model.IChildModelSupport)FpSpread1.ActiveSheetView.DataModel;
s = cModel.GetChildRelation(0);
iModel = cModel.GetChildDataModel(0, s);
Response.Write(The name of the child relation is " + s);

private void FpSpread1ChildViewCreated(object sender, FarPoint.Web.Spread.CreateChildViewEventArgs e)
{
	FarPoint.Web.Spread.Model.IChildModelSupport mTest; 
	mTest = (FarPoint.Web.Spread.Model.IChildModelSupport)e.SheetView.DataModel; 
	Response.Write("The parent index is " + mTest.ParentRelationIndex.ToString()); 
}

Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source= d:\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.Web.Spread.Model.IChildModelSupport
Dim iModel As FarPoint.Web.Spread.Model.ISheetDataModel
Dim s As String
cModel = FpSpread1.ActiveSheetView.DataModel
s = cModel.GetChildRelation(0)
iModel = cModel.GetChildDataModel(0, s)
Response.Write(The name of the child relation is " & s)

Private Sub FpSpread1ChildViewCreated(ByVal sender As Object, ByVal e As FarPoint.Web.Spread.CreateChildViewEventArgs) Handles
FpSpread1.ChildViewCreated
    Dim mTest As FarPoint.Web.Spread.Model.IChildModelSupport
    mTest = e.SheetView.DataModel
    Response.Write("The parent index is " & Convert.ToString(mTest.ParentRelationIndex))
End Sub