power designer使Comment与Name相同.txt

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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/219138/viewspace-984559/