标签:add idt run inter err col not designer border
?
?
?
?
?
Option Explicit ValidationMode = True InteractiveMode = im_Batch ? Dim mdl ‘the current model ? ‘get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model" ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model." Else ProcessFolder mdl End If ? ‘This routine copy name into code for each table, each column and each view ‘of the current folder Private sub ProcessFolder(folder) ? Dim Tab ‘running table for each Tab in folder.tables if not tab.isShortcut then if len(tab.comment) <> 0 then tab.name = tab.comment end if On Error Resume Next Dim col ‘running column for each col in tab.columns if len(col.comment) <>0 then col.name =col.comment end if On Error Resume Next next end if next end sub |
Reverse engineer powerdesigner link odbc
标签:add idt run inter err col not designer border
原文地址:http://www.cnblogs.com/rhxuza1993/p/7451819.html