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

栏目：k3wise知识作者：金蝶来源：金蝶云社区发布：2024-09-22浏览：1

对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 oMenuBar As K3ClassEvents.MenuBar)

Dim dctExternal As KFO.Dictionary

Set dctExternal = m_BaseListInterface.BrowseCtl.ExternalCondition

If Not dctExternal Is Nothing Then

dctExternal("FFilterGroup") = "t_bos200000017.FDiscontinued=0"

End If

End Sub

本文2024-09-22 16:39:53发表“k3wise知识”栏目。
本文链接：https://wenku.my7c.com/article/kingdee-k3wise-89395.html

阅读排行