在PowerDesigner中按Ctrl Shift X，然后将下面的脚本粘贴进去，并运行，就可以 将列的name生成到注释comment中去 [vb] view plaincopy Option Explicit ValidationMode= True InteractiveMode=im_Batch Dim mdl ‘thecurrentmodel ‘getthecurrentactivemodel
在PowerDesigner中按Ctrl + Shift + X，然后将下面的脚本粘贴进去，并运行，就可以
将列的name生成到注释comment中去
[vb] view plaincopy
- 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
- col.comment= col.name
- 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
本文来源gao@daima#com搞(%代@#码网
显示注释操作：
选择那个表,右键->Properties->Columns->Customize Columns and Filter(或直接用快捷键Ctrl+U)->Comment(前面打勾)->OK
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：PowerDesigner name2comment 显示表注释
转载请注明原文链接：PowerDesigner name2comment 显示表注释
