替换PD模型中的名称Name和编号Code

最新推荐文章于 2024-07-04 00:31:14 发布

highroad

最新推荐文章于 2024-07-04 00:31:14 发布

阅读量1.4k

点赞数

分类专栏： 05数据库文章标签： each table go im

本文链接：https://blog.csdn.net/highroad/article/details/2154203

版权

05数据库专栏收录该内容

6 篇文章 0 订阅

订阅专栏

'替换PD模型中的名称Name和编号Code

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 and each column
' of the current folder
Private sub ProcessFolder(folder)
   Dim Tab 'running table
   sFindCode = "findCode"
   sReplaceCode = "ReplaceCode"
   sFindName = "FindName"
   sReplaceName = "ReplaceName"
   for each Tab in folder.tables
      if not tab.isShortcut then
            tab.code=Replace(tab.code,sFindCode,sReplaceCode)
            tab.name=Replace(tab.name,sFindName,sReplaceName)
         Dim col ' running column
         for each col in tab.columns
            col.code=Replace(col.code,sFindCode,sReplaceCode)
            col.name=Replace(col.name,sFindName,sReplaceName)
         next
      end if
   next

   ' go into the sub-packages
   Dim f ' running folder
   For Each f In folder.Packages
      if not f.IsShortcut then
         ProcessFolder f
      end if
   Next
end sub