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.comment=col.name
On Error Resume Next
next
On Error Resume Next
NEXT
On Error Resume Next 注意这句当有空的时候就跳过去