PD中将Comment 从Name复制值
2015-10-13 01:46
274 查看
PD中将Comment 从Name复制值,
将以下语句考到,pd 工具栏下的执行脚本中执行下就OK了
将以下语句考到,pd 工具栏下的执行脚本中执行下就OK了
Option Explicit ValidationMode = True InteractiveMode = im_Batch 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 ' This routine copy name into comment for each table, each column and each view ' of the current folder Private sub ProcessFolder(folder) Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.comment = tab.name Dim col ' running column for each col in tab.columns if (len(col.comment)<=0) Then col.comment= col.name end If next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.comment = view.name 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
相关文章推荐
- XMPPFramework框架的导入
- Hexo中如何用Markdown插入本地图片
- 写在开发前——android各种准备工作
- javascript base库
- 支付宝Cookie高危漏洞引发的思考
- WDCP安装并配置php5.4和mongodb
- ARM汇编编程概述
- HDU 5500 Reorder the Books
- (程序员内在修炼)《熔炉》观后感:承认并且面对生活的丑陋面
- Promise/deferred(转)
- 五个解决方案让MongoDB拥有RDBMS的鲁棒性事务
- Foundation Kit框架概叙
- 初步18-画星星
- 解决安装Oracle12c时中文方块字
- 复习javascript基础 (1)
- JSON解析 Gson解析方式 JSONObject JSONArray
- Codeforces Round #325 (Div. 2) B
- 2015/10/13
- Android图形显示系统——上层显示2:硬件加速实现
- 悼念程序员的那些难忘时刻