Powerdesigner的vbscript

'去除column的Collation属性，在反向的时候会自动加上的

dim   sName 
for   each   table   in   ActiveModel.tables 
    for   each   column   in   table.columns 
       if (column.GetExtendedAttribute("ExtCollation") <>"") then
         output(table.Name + "." + column.Name)
         call column.SetExtendedAttributeText ("ExtCollation","" )
       end if
    next 
next