PowerDesignername2comment显示表注释

在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

1. Option Explicit
2. ValidationMode = True
3. InteractiveMode = im_Batch
4. Dim mdl ' the current model
5. ' get the current active model
6. Set mdl = ActiveModel
7. If (mdl Is Nothing) Then
8. MsgBox "There is no current Model "
9. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
10. MsgBox "The current model is not an Physical Data model. "
11. Else
12. ProcessFolder mdl
13. End If
14. ' This routine copy name into comment for each table, each column and each view
15. ' of the current folder
16. Private sub ProcessFolder(folder)
17. Dim Tab 'running table
18. for each Tab in folder.tables
19. if not tab.isShortcut then
20. tab.comment = tab.name
21. Dim col ' running column
22. for each col in tab.columns
23. col.comment= col.name
24. next
25. end if
26. next
27. Dim view 'running view
28. for each view in folder.Views
29. if not view.isShortcut then
30. view.comment = view.name
31. end if
32. next
33. ' go into the sub-packages
34. Dim f ' running folder
35. For Each f In folder.Packages
36. if not f.IsShortcut then
37. ProcessFolder f
38. end if
39. Next
40. end sub

显示注释操作：

选择那个表,右键->Properties->Columns->Customize Columns and Filter(或直接用快捷键Ctrl+U)->Comment(前面打勾)->OK