powerdesigner 修改字段类型

'Option Explicit On
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' the current model
' 取得当前Model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox "There is no current Model"
ElseIf Not (PdPDM.cls_Model) Then
MsgBox "The current model is not an Physical Data model."
Else
   ProcessFolder mdl
End If

Private Sub ProcessFolder(folder)
    '处理表
    Dim Tab,str1
    Dim tt  
    For Each Tab In 
        
            tt = 
         'if(not tt is nothing) then
            str1 = left(tt, 1)
            str1 = UCase(str1)
            Dim str2
            str2 = right(tt , len(tt) - 1)
            str2 = LCase(str2)
             = str1 + str2

            '修改字段名
            Dim col
            For Each col In 
                If ( <> "") Then
                    Dim code
                    code = 
                    Dim code1
                    code1 = left(code, 1)
                    code1 = UCase(code1)
                    Dim code2
                    code2 = right(code, len(code) - 1)
                    code2 = LCase(code2)
                     = code1 + code2
                End If
                if(StrComp(,"Id") = 0)then
                   = "Long integer"
                end if
                
                  if(StrComp(,"NUMBER") = 0)then
                   = "Integer"
                end if
            Next
            ' End If
    Next
    ' 同理处理视图
    ' Dim view
    '   for each view in 
    '   if not  then
    '  = 
    ' end if
    ' next
    ' go into the sub-packages
    Dim f ' running folder
    For Each f In 
        If Not  Then
            ProcessFolder f
      End If
    Next
End Sub