金蝶k3 显示BOS序时簿并返回选中的值

在插件中显示BOS序时簿并返回选中的值

 

 1 '********************************************
 2 '功能：显示BOS序时簿并返回选中的值
 3 '参数：lClassTypeID—显示BOS单据的ID
 4 '********************************************
 5  Private Function ShowListByReturn(ByVal lClassTypeID As Long) As Object
 6 Dim oDataSrv As Object
 7 Dim objLookup As Object
 8 On Error GoTo err_ctr
 9 Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")
10 oDataSrv.ClassTypeID = lClassTypeID
11 If oDataSrv.showfilter Then
12    Set objLookup = CreateObject("K3ClassLookUp.BillLookUp")
13    objLookup.ClassTypeID = lClassTypeID
14    Set objLookup.DataSrv = oDataSrv
15      objLookup.Lookup
16      Set ShowListByReturn = objLookup.VectReturn
17 End If
18 Set oDataSrv = Nothing
19 Set objLookup = Nothing
20 Exit Function
21 err_ctr:
22 Set oDataSrv = Nothing
23 Set objLookup = Nothing
24 End Function