• 【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

    相关文章
    相关标签/搜索
    天空彩天下彩正版资料 和静县| 甘肃省| 鹤岗市| 柳林县| 莱州市| 盐津县| 武定县| 保靖县| 维西| 闻喜县| 平山县| 洛川县| 时尚| 天水市| 张家界市| 班玛县| 西充县| 连云港市| 永登县| 澳门| 射阳县| 梁山县| 安阳市| 沂源县| 驻马店市| 平利县| 大名县| 吉木萨尔县| 陵川县| 田林县| 安国市| 寿光市| 台中市| 太仆寺旗| 黄浦区| 瑞丽市| 任丘市| http://fa.hz0j2r2vo.fun http://fa.hz0j1r7vo.fun http://fa.hz0j0r2vo.fun http://fa.hz0j2r4vo.fun http://fa.hz0j0r8vo.fun