- 积分
- 5769
- 明经币
- 个
- 注册时间
- 2010-1-25
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2011-8-14 22:31:24
|
显示全部楼层
本帖最后由 chmenf087 于 2011-8-14 22:34 编辑
Using trans1 As Transaction = db.TransactionManager.StartTransaction
Dim sty As TextStyleTable = trans1.GetObject(db.TextStyleTableId, OpenMode.ForRead, False, True)
Dim styRec As TextStyleTableRecord = trans1.GetObject(sty.Item("standard"), OpenMode.ForRead, False, True)
Dim styRecID As ObjectId = strRec.ObjectId
end using |
|