Comment vérifier si un domaine est associé à une colonne

option explicit
dim mdl, tbl, col, dmn
set mdl=activemodel

If (mdl Is Nothing) Or (Not mdl.IsKindOf(PdPDM.cls_Model)) Then
MsgBox « Le modèle courant n’est pas un modèle physique. »
Else

for each tbl in mdl.tables
for each col in tbl.columns
set dmn=col.domain
if not (dmn is nothing) then
output tbl.code + « . » + col.code +  » uses domain  » + dmn.code
end if
next
next

end if