zoukankan      html  css  js  c++  java
  • PDM中列举所有含取值范围、正则表达式约束的字段

    Option   Explicit

    ValidationMode   =   True

    InteractiveMode =   im_Batch

    Dim   mdl   '当前model

    '获取当前活动model

    Set   mdl   =   ActiveModel

    If   (mdl   Is   Nothing)   Then

             MsgBox   "There   is   no   current   Model "

    ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then '如果是处理pdm,这里换成PdPDM.cls_Model

             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   item   '要处理的对象

    '先处理每个实体或类的Name和Code

    dim tab

             for   each   tab   in  folder.tables

                if   not   tab.isShortcut   then

                     dim col      

                     for   each   col   in   tab.columns 

                        if col.ServerCheckExpression <>"" then

                           output col.name

                           output col.ServerCheckExpression

                        end if

                       

                         if col.ListOfValues <>"" then

                           output col.name

                           output col.ListOfValues

                        end if

                       

                     next

                end  if

             next

            '递归遍历子文件夹

             Dim   f   '子文件夹

             For   Each   f   In   folder.Packages

                   if   not   f.IsShortcut   then

                         ProcessFolder   f

                   end   if

             Next

       end   sub

  • 相关阅读:
    react组件销毁中清理异步操作和取消请求
    只要一行代码,实现五种 CSS 经典布局
    vue中如何安装sass,sass安装命令
    每日总结
    每日总结
    每日总结
    每周总结
    每日总结
    每日总结
    每日总结
  • 原文地址:https://www.cnblogs.com/mol1995/p/7183974.html
Copyright © 2011-2022 走看看