<thead id="xjx1f"></thead>
      <sub id="xjx1f"></sub>

        <address id="xjx1f"></address>

            【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

            相关文章
            相关标签/搜索
            黄大仙精选资料一肖一码