<input id="wk422"><u id="wk422"></u></input>
  • <menu id="wk422"><tt id="wk422"></tt></menu><input id="wk422"></input>
    <object id="wk422"></object><input id="wk422"><acronym id="wk422"></acronym></input>
  • <nav id="wk422"></nav>
  • <input id="wk422"><acronym id="wk422"></acronym></input>
  • <object id="wk422"></object>
    <input id="wk422"><u id="wk422"></u></input><input id="wk422"></input>
  • <input id="wk422"><button id="wk422"></button></input>
  • <menu id="wk422"></menu>

    【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.hz0j2r8vo.fun http://fa.hz0j2r9vo.fun http://fa.hz0j2r9vo.fun http://fa.hz0j2r4vo.fun http://fa.hz0j2r7vo.fun