ITPub博客

首页 > 数字化转型 > ERP > power designer使Comment与Name相同.txt

power designer使Comment与Name相同.txt

原创 ERP 作者:abcbbc 时间:2007-11-25 09:46:32 0 删除 编辑

1、先把基本的数据库对象reverse出来;
2、在菜单model->extended model definitions...中,把预定义的powerbuilder加近来;
3、执行菜单功能tools->powerbuilder->reverse extended attributes;
4、在tools->excute commands->edit/run script中书写并执行一下脚本:

Dim model
Dim tbl
Dim ModelTables
Set model = ActiveModel
Set ModelTables = model.Tables
For Each tbl In ModelTables
For each col in tbl.columns
col.name=col.comment
On Error Resume Next
next
On Error Resume Next
NEXT

On Error Resume Next 注意这句当有空的时候就跳过去

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/219138/viewspace-984559/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2011-09-07

  • 博文量
    56
  • 访问量
    688370