主题：在单据录入过程进行折叠模式核算

   Case "折叠模式"
        Dim st As New LayerTreeSetting
        st.PathCol = "层级"
        st.Lengths = {1, 2, 2, 2, 2}//
        st.TreeCol = "子件名称"
        st.AggregateCols = {"数量", "金额"}
        st.UseStyle = True
        Tables("单据BOM.单据BOM明细").ShowGridTree(st)

在单据录入过程进行折叠模式核算，这段代码需要怎样改

我想在录入内部BOM时，直接在录入单据的窗口进行生成核对

要改什么？代码有什么问题？

生成不了

把代码放在按钮键里可以，放到菜单管理器里就不行

请上传实例测试

此主题相关图片如下：qq截图20230613094738.png

找到原因来，原来是“拆”与“折”，打错字了