Oracel反向生成PDM后没有字段说明

• 从name替换comment
• ?

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

  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

  从comment替换name

  • ?

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

    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      Private   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         Next   end   sub