powerdesign comment 로 name 내 보 내기

1631 단어 각본vb
먼저 PDM, tools - > execute commands - > edit / run script 을 엽 니 다.
다음 스 크 립 트 를 실행 하고 name 을 comment 로 복사 합 니 다.

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   code   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
end   sub 

그리고 데이터베이스 - > generate 데이터베이스 - > options - > table & column 에서 각각 table 과 column 의 coment 를 선택 하여 표를 내 보 낼 때 comment 를 내 보 낼 수 있 습 니 다.

좋은 웹페이지 즐겨찾기