【PowerDesigner】【7】Table视图显示Comment

        原理:把显示name的列的值,替换成注释的值。

        步骤:打开菜单Tools>Execute Commands>Edit/Run Script.. 或者用快捷键 Ctrl+Shift+X。将下面的语句粘贴进去并执行

        VBS脚本:

            Option   Explicit   
            ValidationMode   =   True   
            InteractiveMode   =   im_Batch
            Dim blankStr
            blankStr   =   Space(1)
            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 = "" or replace(col.comment," ", "")="" Then
                                    col.name = blankStr
                                    blankStr = blankStr & Space(1)
                              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  

        参考博客:

        1,PowerDesigner显示Comment注释 - Difffate的技术随笔 - CSDN博客
        https://blog.csdn.net/difffate/article/details/77945239

        相关文章
        相关标签/搜索
        管家婆精选心水黄大仙