'datatables repository Dim dsAddresses As DataSet = New DataSet Dim Relation As DataRelation 'Create the Address datatable dsAddresses.Tables.Add(GetAddress(Case_Number)) dsAddresses.Tables(0).TableName = "Address" 'Create Registered Agent Datatable dsAddresses.Tables.Add(GetRegisteredAgent(Case_Number)) dsAddresses.Tables(1).TableName = "RegisterAgent" 'Create Lawyer Datatable dsAddresses.Tables.Add(GetAttorney(Case_Number)) dsAddresses.Tables(2).TableName = "Lawyer" 'create relation betwen Address and Registered Agent tables Relation = New DataRelation("CASE_NUMBER", dsAddresses.Tables("Address").Columns("CASE_NUMBER"), dsAddresses.Tables("RegisterAgent").Columns("CASE_NUMBER")) dsAddresses.Relations.Add(Relation) 'creates relation between address and lawyer tables Relation = New DataRelation("CASE_NUMBER_Lawyer", dsAddresses.Tables("Address").Columns("CASE_NUMBER"), dsAddresses.Tables("Lawyer").Columns("CASE_NUMBER")) dsAddresses.Relations.Add(Relation) 'return the datatables repository Return dsAddresses
|