Dim relCustomerOrders As DataRelation
relCustomerOrders = New DataRelation("CustomerOrders", dcCustomerCustID, dcOrdersCustID)
myDataSet.Relations.Add(relCustomerOrders)
然后,建立新的DataColumn,使用DataColumn的Expression属性得到父表(Parent Talbe)中的值,再将这些DataColumn添加到子表(Child Table)中:
Dim oCustName As DataColumn