即日起在codingBlog上分享您的技术经验即可获得积分,积分可兑换现金哦。

pdm Comment转name

数据库 u013117161 56℃ 0评论

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    


  


Private   sub   ProcessFolder(folder)    


On Error Resume Next   


      Dim   Tab   running     table    


      for   each   Tab   in   folder.tables    


            if   not   tab.isShortcut   then    


                  tab.name   =   tab.comment   


                  Dim   col      running   column    


                  for   each   col   in   tab.columns    


                  if col.comment=“” then   


                  else  


                        col.name=   col.comment    


                  end if  


                  next    


            end   if    


      next    


  


      Dim   view   running   view    


      for   each   view   in   folder.Views    


            if   not   view.isShortcut   then    


                  view.name   =   view.comment    


            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 

转载请注明:CodingBlog » pdm Comment转name

喜欢 (0)or分享 (0)
发表我的评论
取消评论

*

表情