Matrix Add Row

Question

hi guys,
I created one form in screen painter and used this form in VB.net. In this form one grid is available.
In the menuevent of this form I write the code for open the form when user click on menu. I also write the code for add row in the matrix.
When I open the form first time both opening the form as well as adding row into the matrix works fine.
After closing the form and open the form second time menuevent occur more than 2 times.
Due to this many rows are added in the matrix only one click of add row.
What would be reason for occuring menuevents more than 2 times?
Can anyone  help me?
thanks in advance.

Answer 1

hi kamil,
this function is called when click on Menu event.
when form is loaded.
// code when form is loaded from XML File.
Public Sub LoadForm1()
        Dim oXmlDoc As Xml.XmlDocument
        oXmlDoc = New Xml.XmlDocument
        Dim sPath As String
        Try
        sPath = IO.Directory.GetParent(Application.StartupPath).ToString & "\"
        oXmlDoc.Load(sPath & "NewInvoicePO.srf")
        Dim cp As SAPbouiCOM.FormCreationParams
        cp = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
            cp.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Fixed
            cp.FormType = "Invoice"
            cp.XmlData = oXmlDoc.InnerXml
            cp.UniqueID = "IndentPO"
            cp.ObjectType = "POHeader"
        oForm1 = SBO_Application.Forms.AddEx(cp)
        oForm1.Title = "Indent PO"
        oForm1.AutoManaged = True
        oForm1.SupportedModes = -1
            'oForm1.DataBrowser.BrowseBy = oForm1.Items.Item("33").Specific().value
            oForm1.Freeze(True)
            oForm1.EnableMenu("1281", True)  '// Add Find Mode
            'oForm1.EnableMenu("1282", True)  '// Add New Record 
            oForm1.EnableMenu("1288", True)  '// Next Record 
            oForm1.EnableMenu("1289", True)  '// Pevious Record 
            oForm1.EnableMenu("1290", True)  '// First Record 
            oForm1.EnableMenu("1291", True)  '// Last record
            oForm1.EnableMenu("1292", True)  '// Add Row
            oForm1.EnableMenu("1293", True)  '// Delete Row
            oForm1.EnableMenu("1294", True)  '// Duplicate Row
        AddDataBindToMainForm()
        CreateMatrixForForm1()
        oDBDataSource4 = oForm1.DataSources.DBDataSources.Add("@INDENTPOMASTER")
        oDBDataSource5 = oForm1.DataSources.DBDataSources.Add("@INDENTPOCHILD")
            oForm1.DataBrowser.BrowseBy = "31"
        GetMaxPONo()
        oForm1.Freeze(False)
            oForm1.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
I write the following code in the item event when click on close button.
// code when click on close button
If pVal.FormUID = "IndentPO" And pVal.ItemUID = "2" And pVal.BeforeAction = True Then
                Try
                  oForm1.EnableMenu("1288", False)  '// Next Record 
                  oForm1.EnableMenu("1289", False)  '// Pevious Record 
                    oForm1.EnableMenu("1290", False)  '// First Record 
                    oForm1.EnableMenu("1291", False)  '// Last record
                    oForm1.EnableMenu("1292", False)  '// Add Row
                    oForm1.EnableMenu("1293", False)  '// Delete Row
                    oForm1.EnableMenu("1294", False)  '// Duplicate Row
                    Exit Sub
                Catch ex As Exception
                    'MsgBox(ex.Message)
                End Try
            End If
In the first line of the try block I got the error.
Error : object reference not set to an instance of an object.