关系如何用VBA程序来建立

引用 dao

Sub CreateRelationX()     Dim dbsNorthwind As Database     Dim tdfEmployees As TableDef     Dim tdfNew As TableDef     Dim idxNew As Index     Dim relNew As Relation     Dim idxLoop As Index     Set dbsNorthwind = OpenDatabase("Northwind.mdb")     With dbsNorthwind         ' Add new field to Employees table.         Set tdfEmployees = .TableDefs!Employees         tdfEmployees.Fields.Append _             tdfEmployees.CreateField("DeptID", dbInteger, 2)         ' Create new Departments table.    ..................... ...........