PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1612字，纯文字阅读大概需要3分钟。

内容图文

运行脚本 Tools->Execute Commands->Edit/Run Scripts（快捷键：Ctrl+Shift+X）

VB脚本如下：

‘ 把pd中那么name想自动添加到comment里面 ‘如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失. 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     if trim(tab.comment)="" then ‘如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.        tab.comment = tab.name     end if   Dim col ‘ running column   for each col in tab.columns   if trim(col.comment)="" then ‘如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.    col.comment= col.name   end if  next    end if   next       Dim view ‘running view   for each view in folder.Views    if not view.isShortcut and trim(view.comment)=""  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

PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面

标签：

本文系统来源：http://blog.csdn.net/maizi1045/article/details/51345868

内容总结

以上是互联网集市为您收集整理的PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面全部内容，希望文章能够帮你解决PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

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

内容手机端

---