<address id="rf17h"><dfn id="rf17h"></dfn></address>
    <address id="rf17h"><var id="rf17h"></var></address> <sub id="rf17h"><var id="rf17h"><ins id="rf17h"></ins></var></sub><address id="rf17h"></address>

    <address id="rf17h"><listing id="rf17h"><ins id="rf17h"></ins></listing></address>

    <sub id="rf17h"><var id="rf17h"></var></sub>
    <sub id="rf17h"><var id="rf17h"><output id="rf17h"></output></var></sub>

      <address id="rf17h"></address>
      <sub id="rf17h"><var id="rf17h"></var></sub>
          <sub id="rf17h"><dfn id="rf17h"><ins id="rf17h"></ins></dfn></sub>

          【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

          相关文章
          相关标签/搜索
          王中王中特免费公开资料选料