[raz]

Принцип такой:

    for (i = 0; i < dimof(Dimension); i++)
        myQBDS.addLink(fieldId2Ext(fieldnum(Table1, Dimension), i + 1), fieldId2Ext(fieldnum(Table2, Dimension), i + 1));