<menu id="u6gwm"></menu>
<object id="u6gwm"></object>
<input id="u6gwm"></input>
<menu id="u6gwm"><u id="u6gwm"></u></menu>
<input id="u6gwm"><acronym id="u6gwm"></acronym></input>
<menu id="u6gwm"><acronym id="u6gwm"></acronym></menu>
  • <menu id="u6gwm"></menu>
    <input id="u6gwm"><u id="u6gwm"></u></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

    相关文章
    相关标签/搜索
    4887铁算结果开奖王中王结果小说 阳春市| 武冈市| 万州区| 四平市| 乌拉特后旗| 高清| 泌阳县| 岳普湖县| 黄石市| 司法| 宜黄县| 汤原县| 北川| 梁河县| 靖宇县| 德清县| 泾川县| 池州市| 六安市| 泊头市| 洛扎县| 紫金县| 宜春市| 方山县| 天津市| 马龙县| 广昌县| 吐鲁番市| 阳信县| 安西县| 石家庄市| 元谋县| 罗平县| 江津市| 松潘县| 容城县| 景泰县| http://fa.hz0j2r7vo.fun http://fa.hz0j1r0vo.fun http://fa.hz0j2r3vo.fun http://fa.hz0j1r8vo.fun http://fa.hz0j0r6vo.fun