Matrix Causing Lockup...

Question

I am using the UI-API to react to a user entering an Item ID on a Sales order.  For testing purposes, I'm just trying to return a message box with the value of the Item ID entered.  My code works fine until I set a reference to a new Matrix object.  At that point, the application freezes and won't let go until I shut down the VB.NET app.
Here's the code:
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If pVal.FormType = 139 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD Then
            '// get the event sending form
            oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
            Dim objItem As SAPbouiCOM.Item
            Dim objMatrix As SAPbouiCOM.Matrix
            Dim ItemID As String
    If pVal.EventType = SAPbouiCOM.BoEventTypes.et_LOST_FOCUS And pVal.ItemUID = 38 And pVal.ColUID = "1" Then
                objMatrix = New SAPbouiCOM.Matrix
                objMatrix = SBO_Application.Foms.Item(pVal.ForumUID).Items.Item(pVal.ItemUID).Specific
                ItemID = objMatrix.Columns.Item("1").Cells.Item(pVal.Row).Specific.String
                SBO_Application.MessageBox(ItemID)
            End If
        End If
    End Sub
Any ideas on this??  Thanks!

Answer 1

ItemID = objMatrix.Columns.Item("1").Cells.Item(pVal.Row).Specific.String
instead of casting into "Item" cast the cell into "edittext"
Dim mobjEditText As SAPbouiCOM.EditText
mobjEditText =objMatrix.Columns.Item("1").Cells.Item(pVal.Row).Specific.
I think it will help.
Message was edited by: Amit Verma