数据库设计
-
编辑 删除
PD中表名与注释互换脚本
'以下部分为将name生成commentOption 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 M...
-
编辑 删除
把execl导入到PD生成表结构的小脚本
Option ExplicitDim mdl ' the current modelSet mdl = ActiveModelMsgBox "当前活动的CDM名称是"+mdl, vbOK + vbInformation, "表"If (mdl Is Nothing) Then MsgBox "There is no Active Model"End IfDim HaveExcelDim RQRQ = vbYes 'MsgBox("Is Excel Installed on your machine ?", vbYesNo + vbIn...
