首页 / POWERDESIGN / 利用VBA把PowerDesigner的name复制到comment

利用VBA把PowerDesigner的name复制到comment

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了利用VBA把PowerDesigner的name复制到comment，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1487字，纯文字阅读大概需要3分钟。

内容图文

代码如下：

            Option
            Explicit
            ‘
            -------------------------------------------------------------------------------
            
‘
            作用：PowerDesigner物理模型复制name到comment
            
‘
‘
            作者: Lio5n
            
‘
            时间: 2015-12-18
            
‘
‘
            版本: V1.0
            
‘
‘
            说明：如果comment有值，不会覆盖；可以重复执行，不会多次复制
            
‘
            -------------------------------------------------------------------------------
            
 ValidationMode   =   True 
 InteractiveMode   =   im_Batch

Dim   mdl   ‘当前模型‘获取当前活动的模型Set   mdl   =   ActiveModel 
 If   (mdl   IsNothing)   ThenMsgBox"未找到活动的模型！"ElseIfNot   mdl.IsKindOf(PdPDM.cls_Model)   ThenMsgBox"当前模型不是物理模型！"Else 
       ProcessFolder   mdl 
       msgbox"执行完成！"EndIf‘复制 name 到 comment 的函数Privatesub   ProcessFolder(folder) 
       DimTab‘表处理foreachTabin   folder.tables 
             ifnottab.isShortcut   thenifleft(trim(tab.comment),len(trim(tab.name ))) <> trim(tab.name) thentab.comment   =   trim(tab.name) + "" + trim(tab.comment)
                   tab.comment   =   trim(tab.comment)
                endifDim   col   ‘字段处理foreach   col   intab.columns 
                           ifleft(trim(col.comment),len(trim(col.name ))) <> trim(col.name) then
                         col.comment=   trim(col.name) + "" + trim(col.comment)
                         col.comment=   trim(col.comment)
                      endifnextendifnextDim   view   ‘视图处理foreach   view   in   folder.Views 
             ifnot   view.isShortcut   thenifleft(trim(view.comment),len(trim(view.name ))) <> trim(view.name) then
                   view.comment   =   trim(view.name) + "" + trim(view.comment)
                   view.comment   =   trim(view.comment)
              endifendifnext‘进入子floderDim   f   ‘子folder ForEach   f   In   folder.Packages 
             ifnot   f.IsShortcut   then 
                   ProcessFolder   f 
             endifNextendsub

 

原文：http://www.cnblogs.com/wanggs/p/5056913.html

内容总结

以上是互联网集市为您收集整理的利用VBA把PowerDesigner的name复制到comment全部内容，希望文章能够帮你解决利用VBA把PowerDesigner的name复制到comment所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1082675.html

来源：【匿名】