下面调用序时薄的函数．如何设置，可以直接过滤出指定条件的单据．不显示出过滤界面？ 谢谢．
Private Function ShowList(ByVal lClassTypeID As Long) As Boolean
Dim oDataSrv As Object
Dim objLookup As Object
Dim dctFilter As New KFO.Dictionary
On Error GoTo err_ctr
Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv")
oDataSrv.ClassTypeID = lClassTypeID
If oDataSrv.ShowFilter(, , , True) = True Then
Set objLookup = m_BillInterface.K3Lib.CreateK3Object("K3ClassLookUp.BillLookUp")
objLookup.ClassTypeID = lClassTypeID 'oDataSrv.ClassTypeID
oDataSrv.Filter("FilterString") = "T_ReqSplit.fbillno in(" & m_BillInterface.GetFieldValue("FPushNo") & ")"
Set objLookup.DataSrv = oDataSrv
objLookup.Show
End If
Set oDataSrv = Nothing
Set objLookup = Nothing
Exit Function
err_ctr:
Set oDataSrv = Nothing
Set objLookup = Nothing
End Function
解决方法：
将“If oDataSrv.ShowFilter(, , , True) = True Then”改成
“If oDataSrv.ShowFilter Then”并且在过滤界面上“下次以本方案自动进入”这个选项打钩即可。