将pdm中的注释拷贝到name

最新推荐文章于 2022-09-16 15:14:37 发布

财运通

最新推荐文章于 2022-09-16 15:14:37 发布

阅读量1.8k

点赞数

分类专栏：开发技术文章标签：数据库 pdm

开发技术专栏收录该内容

29 篇文章

订阅专栏

本文详细介绍了如何通过编程实现对当前激活的物理数据模型的处理与管理，包括文件夹内表格、视图和子包的遍历，以及表、视图的名称更新和列名称的设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

</pre>这个是从网上找的代码，略作修改。<p></p><pre name="code" class="vb"><span style="font-family: Arial, Helvetica, sans-serif;">Option   Explicit </span>

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