• <menu id="oia2w"><acronym id="oia2w"></acronym></menu>
  • <menu id="oia2w"></menu>
  • <input id="oia2w"><u id="oia2w"></u></input>
  • <menu id="oia2w"></menu><input id="oia2w"></input>
  • 【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.hz0j1r8vo.fun http://fa.hz0j0r1vo.fun http://fa.hz0j2r5vo.fun http://fa.hz0j1r2vo.fun http://fa.hz0j1r4vo.fun