K3打开序时簿，并返回选中的值

'******************************************** 
'功能：显示BOS序时簿并返回选中的值 
'参数：lClassTypeID—显示BOS单据的ID 
'******************************************** 
Private Function ShowListByReturn(ByVal lClassTypeID As Long) As Object 
Dim oDataSrv As Object 
Dim objLookup As Object 
On Error GoTo err_ctr 
Set oDataSrv = CreateObject("K3ClassTpl.DataSrv") 
oDataSrv.ClassTypeID = lClassTypeID 
If oDataSrv.showfilter Then 
Set objLookup = CreateObject("K3ClassLookUp.BillLookUp") 
objLookup.ClassTypeID = lClassTypeID 
Set objLookup.DataSrv = oDataSrv 
objLookup.Lookup 
Set ShowListByReturn = objLookup.VectReturn 
End If 
Set oDataSrv = Nothing 
Set objLookup = Nothing 
Exit Function 
err_ctr: 
Set oDataSrv = Nothing 
Set objLookup = Nothing 
End Function