zoukankan      html  css  js  c++  java
  • 配置显示注释comment

    显示操作

    调出执行命令的接口

    从comment替换name

    [java] view plain copy
     
    1. Option   Explicit   
    2. ValidationMode   =   True   
    3. InteractiveMode   =   im_Batch  
    4.   
    5. Dim   mdl   '   the   current   model  
    6.   
    7. '   get   the   current   active   model   
    8. Set   mdl   =   ActiveModel   
    9. If   (mdl   Is   Nothing)   Then   
    10.       MsgBox   "There   is   no   current   Model "   
    11. ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
    12.       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "   
    13. Else   
    14.       ProcessFolder   mdl   
    15. End   If  
    16.   
    17. Private   sub   ProcessFolder(folder)   
    18. On Error Resume Next  
    19.       Dim   Tab   'running     table   
    20.       for   each   Tab   in   folder.tables   
    21.             if   not   tab.isShortcut   then   
    22.                   tab.name   =   tab.comment  
    23.                   Dim   col   '   running   column   
    24.                   for   each   col   in   tab.columns   
    25.                   if col.comment="" then  
    26.                   else  
    27.                         col.name=   col.comment   
    28.                   end if  
    29.                   next   
    30.             end   if   
    31.       next  
    32.   
    33.       Dim   view   'running   view   
    34.       for   each   view   in   folder.Views   
    35.             if   not   view.isShortcut   then   
    36.                   view.name   =   view.comment   
    37.             end   if   
    38.       next  
    39.   
    40.       '   go   into   the   sub-packages   
    41.       Dim   f   '   running   folder   
    42.       For   Each   f   In   folder.Packages   
    43.             if   not   f.IsShortcut   then   
    44.                   ProcessFolder   f   
    45.             end   if   
    46.       Next   
    47. end   sub  
     
  • 相关阅读:
    嵌套循环td时补齐td的解决方法
    [web.aspNet]vs2005无法断点调试网站,断点失效 IE8 vss6.0
    使IE6下PNG背景透明的七种方法任你选
    VBA之Range对象在Excel单元格赋值示例
    css控制透明度
    SQL2000中用backup 备份数据库
    软件开发人才级别划分
    sql server事务全攻略(转载)
    程序员不是神,心态决定一切
    一个真正合格程序员的七种素质
  • 原文地址:https://www.cnblogs.com/bug1024/p/8473740.html
Copyright © 2011-2022 走看看