0

我在右键单击事件中启用了一些菜单。第一次效果很好。例如，按下“添加行”菜单，它会添加行。我再次右键单击按钮，它没有显示我在右键单击事件中启用的菜单。我需要一次又一次地添加行。

我怎样才能做到这一点？

Private Sub SBO_Application_RightClickEvent(ByRef eventInfo As SAPbouiCOM.ContextMenuInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.RightClickEvent
    Try
        oForm = SBO_Application.Forms.Item("TRADING")
        If (eventInfo.FormUID = "TRADING") Then
             oCombo = oForm.Items.Item("1000002").Specific
            Dim oMenus As SAPbouiCOM.Menus
            oMenus = SBO_Application.Menus
            oForm.EnableMenu("1287", True)
            oForm.EnableMenu("1292", True)
            oForm.EnableMenu("1293", True)
           If (oCombo.Selected.Value = "Open") Then
                oMenus.Item("1283").Enabled = True
            Else
                oMenus.Item("1283").Enabled = False
            End If

        End If
    Catch ex As Exception

    End Try

End Sub
4

1 回答 1

0

根据您在帖子中提供的输入，可能有两次出错的机会。

  1. 你第一次完美地添加了行，但下一次它不起作用..所以我认为代码没有完美处理。尝试在操作错误之前放置相同的代码。并尝试捕获您在项目事件中获得的操作结果，以便我们可以清楚地调试问题。
  2. 要启用右键单击事件菜单，我们需要根据 oform.mode 分别处理右键单击菜单选项。

例如在采购订单屏幕中，我们将在添加更多和查找模式中获得不同的菜单。

于 2013-05-06T09:54:14.020 回答