方法一:
Dim ZcDb As Database = Application.DocumentManager.MdiActiveDocument.Database
方法二:
Dim ZcDb As Database = HostApplicationServices.WorkingDatabase
方法一:
Dim ZcDb As Database = Application.DocumentManager.MdiActiveDocument.Database
方法二:
Dim ZcDb As Database = HostApplicationServices.WorkingDatabase