pdm檔案name與comment互相同步
阿新 • • 發佈:2019-01-08
1.使用Powerdesigner工具將pdm檔案的name同步至comment。
點選Tools->Execute Commands->Edit/Run Scripts
輸入指令碼:
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl 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 Private sub ProcessFolder(folder) Dim Tab for each Tab in folder.tables if not tab.isShortcut then tab.comment=tab.name Dim col for each col in tab.columns col.comment=col.name next end if next end sub
點選Run即可。
2.使用Powerdesigner工具將pdm檔案的comment同步至name。
點選Tools->Execute Commands->Edit/Run Scripts
輸入指令碼:
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl 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 Private sub ProcessFolder(folder) Dim Tab for each Tab in folder.tables if not tab.isShortcut then tab.name=tab.comment Dim col for each col in tab.columns col.name=col.comment next end if next end sub
點選Run即可。
上述兩個指令碼就可以將pdm裡面的name和comment進行互相同步轉換了。