0

右クリックイベントでいくつかのメニューを有効にしました。初めてでもうまくいきます。例えば「Add Row」メニューを押すと、行が追加されます。再びボタンを右クリックすると、右クリック イベントで有効にしたメニューが表示されません。行を何度も追加する必要があります。

どうすればこれを達成できますか？

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

あなたの投稿であなたが与えた入力に基づいて、エラーが発生する可能性が 2 つあります。

  1. 初めて行を完全に追加していますが、次回は機能しませんでした..コードが完全に処理されなかったと思います。false アクションの前に同じコードを配置してみてください。また、問題を明確にデバッグできるように、アイテム イベントで取得したアクションの結果をキャッチしようとします。
  2. 右クリック イベント メニューを有効にするには、oform.mode に基づいて右クリック メニュー オプションを個別に処理する必要があります。

たとえば、発注書画面では、追加モードと検索モードで異なるメニューが表示されます。

于 2013-05-06T09:54:14.020 に答える