|
' crea una relazione tra Customers e Orders myDataSet.relations.add("CustomersOrders", _ myDataSet.tables("Customers").columns("CustomerID"), _ myDataSet.tables("Orders").columns("CustomerID") ' oppure Create 2 datacolumns Dim ParentColumn As DataColumn Dim ChildColumn As DataColumn ' setta l'instanza in parentcolumn e childColumn ParentColumn = MyDataSet.Tables("Customers").Columns()"CustomerID") ChildColumn = MyDataSet.Tables("Orders").columns("CustomerID") ' crea la nuova relazione Dim CustomersToOrders As New DataRelation(_ "CustomersToOrders", ParentColumn , ChildColumn ) MyDataSet.relations.Add(CustomersToOrders ) ' oppure Create 2 Array Dim ParentColumnArray(2) As DataColumn ParentColumnArray(0)= MyDataSet.Tables("Impiegati").Columns()"Cognome") ParentColumnArray(1)= MyDataSet.Tables("Impiegati").Columns()"Cognome") Dim ChildColumnArray(2) As DataColumn ChildColumnArray(0) = MyDataSet.Tables("Manager").columns("Cognome") ChildColumnArray(0) = MyDataSet.Tables("Manager").columns("nome") ' setta l'instanza in parentcolumn e childColumn ParentColumn = MyDataSet.Tables("Customers").Columns()"CustomerID") ChildColumn = MyDataSet.Tables("Orders").columns("CustomerID") ' crea la nuova relazione Dim ImpiegatiManager As New DataRelation(_ "ImpiegatiManager ", ParentColumn , ChildColumn ) MyDataSet.relations.Add(ImpiegatiManager ) |