您好Werner，

另一种方法是使用DI API获取默认系列

     公共函数GetDefaultSeries（ByVal ObjType As String）As Integer
         Dim oCmpSrv为SAPbobsCOM.CompanyService = Nothing
         Dim oSeriesService为SAPbobsCOM.SeriesService = Nothing
         Dim oSeries As Series =无
         Dim oDocumentTypeParams为DocumentTypeParams = Nothing


         尝试
             oCmpSrv = oCompany.GetCompanyService
             oSeriesService = oCmpSrv.GetBusinessService（ServiceTypes.SeriesService）
             oSeries = oSeriesService.GetDataInterface（SeriesServiceDataInterfaces.ssdiSeries）


             oDocumentTypeParams = oSeriesService.GetDataInterface（SeriesServiceDataInterfaces.ssdiDocumentTypeParams）
             oDocumentTypeParams.Document = ObjType
             oSeries = oSeriesService.GetDefaultSeries（oDocumentTypeParams）


             返回oSeries.Series
         异常捕获
             SBO_Application.StatusBar.SetText（"读取默认编号序列失败。"＆ex.Message）
             返回-1


     结束功能
 

致谢

Edy