PowerDesinger 从数据库中依赖反转出来的PDM修改。修改显示名字将注释加到PDM工程

最新推荐文章于 2020-03-24 15:08:02 发布

englefire

最新推荐文章于 2020-03-24 15:08:02 发布

阅读量870

点赞数

分类专栏：个人技术文档文章标签：数据库

本文链接：https://blog.youkuaiyun.com/englefire/article/details/3041848

版权

个人技术文档专栏收录该内容

10 篇文章

订阅专栏

本文介绍了一种使用 VBA 在 Physical Data 模型中批量更新表名的方法。此过程包括检查当前模型的有效性，并通过在表名后添加其代码和注释来更新表名及其列名。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 
  Option   Explicit   
  ValidationMode   =   True   
  InteractiveMode   =   im_Batch   
    
  Dim   mdl     
    
    
  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)   
        Dim   Tab   
        for   each   Tab   in   folder.tables   
              if   not   tab.isShortcut   then   
                    if   (not   isnull(tab.code))   and   (trim(tab.code)<>"")   then   
                          tab.name = tab.code + " : " + tab.comment     
                    end   if   
                    On   Error   Resume   Next   
                    Dim   col     
                    for   each   col   in   tab.columns   
                    if   (not   isnull(col.name))   and     (trim(col.name)<>"")       then   
                          col.code=   col.name   
                    end   if   
                    if   (not   isnull(col.comment))   and     (trim(col.comment)<>"")       then   
                          col.name=   col.name +" : "+col.comment   
                    end   if   
                    On   Error   Resume   Next   
                    next   
              end   if   
        next       
  end   sub   
 
 

PowerDesinger 从数据库中依赖反转出来的PDM修改。修改显示名字 将注释加到PDM工程

PowerDesinger 从数据库中依赖反转出来的PDM修改。修改显示名字将注释加到PDM工程