Re:Adding a row in a matrix using Lost_Focus event & deleting a row

Question

Dear All,
Iam facing a problem in adding a row in a matrix using last focus event.its like if i keep the cusor in the last coloumn in a matrix n if i press tab it should add a row .the row is getting added the problem here is the cursor is gng to first row but it should come to the second row.
the second problem is while deleting a row the row is getting deleted but the row count is showing the deleted row no.
pls suggest a solution for these problems.
Thanks & Regards
Anand

Answer 1

Hi,
If pVal.BeforeAction = False Then
            Select Case pVal.EventType
                Case SAPbouiCOM.BoEventTypes.et_KEY_DOWN
                    If pVal.ItemUID = "matlab" And pVal.ColUID = "mtimeout" And pVal.CharPressed = 9 Then
                        oMatrix = oForm.Items.Item("matlab").Specific
                        Dim rc As Integer = oMatrix.VisualRowCount
                        If rc = pVal.Row Then
                            addrow()    'funtion for adding row
                            oMatrix.Columns.Item("labc").Cells.Item(oMatrix.RowCount).Click()
                            'SBO_Application.MessageBox(oMatrix.RowCount)
                        End If
                    End If
This is the function i hav used
Private Sub addrow()
        Try
            If (oForm.UniqueID = "updt") Then
                oForm = SBO_Application.Forms.ActiveForm
                oForm = SBO_Application.Forms.Item("updt")
                omatrix = oForm.Items.Item("matlab").Specific
                omatrix.AddRow(1, omatrix.VisualRowCount)
                Dim rc As Integer = omatrix.VisualRowCount
                'SBO_Application.MessageBox(rc)
                otext1 = omatrix.Columns.Item("mdatein").Cells.Item(rc).Specific
                otext1.String = "s" 'RecSet.Fields.Item("date1").Value
                otext1 = omatrix.Columns.Item("mdateout").Cells.Item(rc).Specific
                otext1.String = "s" 'RecSet.Fields.Item("date1").Value
                End If
        Catch ex As Exception
            SBO_Application.MessageBox(ex.Message)
        End Try
    End Sub
this is the code which m using
Regards,
Anand