<address id="ll1nf"><listing id="ll1nf"><mark id="ll1nf"></mark></listing></address>

    <address id="ll1nf"></address>

        <sub id="ll1nf"></sub>

        <thead id="ll1nf"><var id="ll1nf"><output id="ll1nf"></output></var></thead>

        <address id="ll1nf"><dfn id="ll1nf"></dfn></address><form id="ll1nf"><listing id="ll1nf"><mark id="ll1nf"></mark></listing></form>

          <address id="ll1nf"><dfn id="ll1nf"></dfn></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

          相关文章
          相关标签/搜索
          今晚一肖一码 于都县| 财经| 阿巴嘎旗| 两当县| 山丹县| 钟祥市| 饶平县| 洪雅县| 皮山县| 沈阳市| 陵川县| 郑州市| 洪湖市| 临澧县| 凤台县| 集安市| 噶尔县| 陆良县| 九江市| 九龙坡区| 务川| 临潭县| 西乌| 上饶县| 金秀| 赫章县| 赞皇县| 紫阳县| 房产| 永兴县| 广平县| 临桂县| 柳林县| 金川县| 武汉市| 文山县| 青铜峡市| http://fa.hz0j1r3vo.fun http://fa.hz0j1r3vo.fun http://fa.hz0j1r5vo.fun http://fa.hz0j1r4vo.fun http://fa.hz0j0r6vo.fun