14
36
3
初露锋芒
Namespace MyApplicationName Class Main _ Sub Commd '这个是我挂命令的函数 Addhandler Form.Btn1.Click , Addressof Btn1_Click '运行命令后,我把一个窗体上的按钮的单击事件挂到了另一个函数上 end Sub Commd Sub Btn1_Click(byval ....) '这里我实例化了一个Jig类 dim Jig as new Jig(...) End Sub End Class Main Class Jig Sub New(...) Dim Db as Database = Application.Doc.... Dim Tr as Transaction = Db.Tr.... '这里我使用了Transaction做了一些事 Tr.comit() Tr.Dispose() '然后我实例化一个A类 Dim a as new A a.DoSomething() End Sub New End Class Jig Class A Sub New() End Sub New Sub DoSomething Dim Db as Database = Application.Doc.... Dim Tr as Transaction = Db.Tr.... '这里我也要用Tr做一些事 tr.Comit() tr.Dispose() End Sub End Class A End Namespace
使用道具 举报
72
2726
9
社区元老
Sub DoSomething Dim Doc as Document = Application.... Dim Loc as DocumentLock =Doc.LockDocument() Using Loc Dim Db as Database = Application.Doc.... Dim Tr as Transaction = Doc.Tr.... '这里我也要用Tr做一些事 tr.Comit() tr.Dispose() End Using End Sub
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-15 07:34 , Processed in 0.396815 second(s), 71 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端