用PowerDesigner反向工程后，部分数据库的字段/表注释并没有生成到实体的name中去，所以在显示时全是code，非常晦涩，下面的代码可以帮你把注释复制到name部分，非常好用

Option   ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl  'the current model'get the current active modelSet mdl = ActiveModelIf   (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 mdlEnd IfPrivate   sub   ProcessFolder(folder)On Error Resume Next      Dim   Tab   'running     table      for   each   Tab   in   folder.tables            if   not   tab.isShortcut   then                  tab.name   =   tab.comment                  Dim col 'running   column                  for each col in tab.columns                  if col.comment="" then                  else                        col.name=   col.comment                  end if                  next            end if      next      Dim  view 'running view      for each view in folder.Views            if not view.isShortcut  then                  view.name = view.comment            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      Nextend sub