Matrix addrow

Question

Hi
I have a simple form. As soon as i click Addrow button i need to add a row in the matrix.  I have opened the form first time and clicked addrow buttond a new row is getting added into the matrix. Now i have clicked the cancel button in the form. And then i reopened the form again when i click addrow button 2 new rows are getting added. but i need to add only single row.
Please let me know the solution. i have given the sample code for your reference.
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
If (FormUID = "Frm_QTENT1") Then
                If (pVal.Before_Action = False) Then
                    If (pVal.ItemUID = "Addrow") And (pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK) Then
                        Dim f As SAPbouiCOM.Form
                        Dim oMatrix As SAPbouiCOM.Matrix
                        f = SBO_Application.Forms.Item(FormUID)
                        oMatrix = f.Items.Item("mat1").Specific
                        f.DataSources.DBDataSources.Item(1).Clear()
                        oMatrix.AddRow(1)
                    End If
                End If
            End If
End sub
You can also test . Just add a matrix to a form and then add one button. In the itemevent just past the code above and run the form. And then click addrow button
you can see a new row is added into the matrix. When cancel the form. And now open the form again now click add button only once. You can see 2 rows are getting added. The code what is pasted will be fired 2 wise .
Please let me know how can i solve this problem.
If any one able to solve this problem i will give full reward points
regards
Suresh

Answer 1

hi,
Still i am facing the same problem. I have given the comple code. please let me have a solution for the same. When i click next sample i need to populate all the parameter for the item in the matrix. for that i have writtern the code. It works fine still i did not click cancel button. But as soon as i click cancel button and add click next sample button multiple time this item is getting fired and row are getting add for the time which i have added first time.
If (pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED) And (pVal.ItemUID = "nextsample") Then
                        Dim oEdit As SAPbouiCOM.EditText ' Sample no
                        Dim oEdit1 As SAPbouiCOM.EditText ' Para code
                        Dim oEdit2 As SAPbouiCOM.EditText ' Para desc
                        Dim oEdit3 As SAPbouiCOM.EditText ' UOM Code
                        Dim oEdit4 As SAPbouiCOM.EditText ' UOM Name
                        Dim oEdit5 As SAPbouiCOM.EditText ' Standard Value
                        Dim oEdit6 As SAPbouiCOM.EditText ' Tollerance Pluse
                        Dim oEdit7 As SAPbouiCOM.EditText ' Tollerance minus
                        Dim i As Integer
                        Dim k As Integer
                        Dim sSQL As String
                        Dim oDocRec As SAPbobsCOM.Recordset
                        samno = samno + 1
                        txtsamno.Value = samno
                        oDocRec = Ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                        sSQL = "select b.U_paracode,b.U_paradesc,b.U_UomCode,b.U_uom,b.U_value,b.U_tollplus,b.U_tollmins from [@PSSIT_QCSTANDHDR1] a,  [@PSSIT_QCSTANDDTL1] b where a.U_itemcode = '" & cbogrp.Selected.Value.ToString() & "' and a.Code = b.Code"
                        'sSQL = "select b.U_paracode,b.U_paradesc,b.U_UomCode,b.U_uom,b.U_value,b.U_tollplus,b.U_tollmins from [@PSSIT_QCSTANDHDR1] a, [@PSSIT_QCSTANDDTL1] b where a.U_itemcode = '" & oForm.DataSource.UserDataSource.Item("ItemCode").ValueEx & "' and a.Code = b.Code"
                        oDocRec.DoQuery(sSQL)
                        Oform.Freeze(True)
                        '**********8
                        Dim f1 As SAPbouiCOM.Form
                        Dim oDBs As SAPbouiCOM.DBDataSource
                        f1 = SBO_Application.Forms.Item(FormUID)
                        oMatrix = f1.Items.Item("mat2").Specific
                        oDBs = f1.DataSources.DBDataSources.Item("@PSSIT_QCDTL1")
                        oDBs.Clear()
                        Omatrix.Clear()
                        '  If RefFlag = False Then
                        Omatrix.AddRow(1)
                        If oDocRec.RecordCount > 0 Then
                            For i = 0 To oDocRec.RecordCount - 1
                                'MessageBox.Show(oDocRec.RecordCount)
                                ' Omatrix.AddRow(1)
                                'Sample no
                                oEdit = matcol1.Cells.Item(totrow).Specific
                                oEdit.Value = CInt(samno)
                                matcol1.Editable = False
                                'Parameter code
                                oEdit1 = matcol2.Cells.Item(totrow).Specific
                                oEdit1.Value = oDocRec.Fields.Item(0).Value
                                matcol2.Editable = False
                                'Parameter Name
                                oEdit2 = matcol3.Cells.Item(totrow).Specific
                                oEdit2.Value = oDocRec.Fields.Item(1).Value
                                matcol3.Editable = False
                                'UOM Code
                                oEdit3 = matcol4.Cells.Item(totrow).Specific
                                oEdit3.Value = oDocRec.Fields.Item(2).Value
                                matcol4.Editable = False
                                'UOM Name
                                oEdit4 = matcol5.Cells.Item(totrow).Specific
                                oEdit4.Value = oDocRec.Fields.Item(3).Value
                                matcol5.Editable = False
                                'Standard Value
                                oEdit5 = matcol6.Cells.Item(totrow).Specific
                                oEdit5.Value = oDocRec.Fields.Item(4).Value
                                matcol6.Editable = False
                                'Tollerance Pluse
                                oEdit6 = matcol7.Cells.Item(totrow).Specific
                                oEdit6.Value = oDocRec.Fields.Item(5).Value
                                matcol7.Editable = False
                                'Tollerance minus
                                oEdit7 = matcol8.Cells.Item(totrow).Specific
                                oEdit7.Value = oDocRec.Fields.Item(6).Value
                                matcol8.Editable = False
                                oDocRec.MoveNext()
                                If oDocRec.EoF = True Then
                                    totrow = totrow + 1
                                    Oform.Freeze(False)
                                    Exit For
                                End If
                                totrow = totrow + 1
                                Omatrix.AddRow(1)
                            Next i
                            Oform.Freeze(False)
                        Else
                            MessageBox.Show("Parameter is not updated for this item")
                        End If
                    End If