插件中对BOS基础资料明细及分组进行过滤

对BOS基础资料明细进行过滤

Private Sub m_BaseListInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)

    Dim dctExternal As kfo.Dictionary

    Set dctExternal = m_BaseListInterface.BrowseCtl.ExternalCondition

    IF not dctExternal IS nothing then

    dctExternal("FFilter") = "t_bos200000009.FNumber='222'"

    END IF 

End Sub

对BOS基础资料分组进行过滤

Private Sub m_BaseListInterface_MenuBarInitialize(ByVal oMe