Sorting a number in first column of matrix

Question

Hi All,
I tried following code for sorting number of first column of matrix. But when i click on AddRow menu it gives error and when i use commented line code that time it adds one row but number shows in column last row number.
And when i click on DeleteRow menu it delete only first time second time it is not working.
Can anybody tell me where i am wrong ? Plz suggest me exact code.
Public Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean)
            Dim item As Matrix
            formd = SBO_Application.Forms.ActiveForm
            item = formd.Items.Item("2").Specific
            Dim i As Integer
            If pVal.MenuUID = "1292" Then
                ' item.AddRow(1, 1)
                item.Columns.cells.item(item.RowCount).specific.value = item.RowCount
                BubbleEvent = False
            End If
            If pVal.MenuUID = "1293" Then
                For i = 1 To item.VisualRowCount
                    item.Columns.Item("V_-1").Cells.Item(i).Specific.value = i
                Next
                item.FlushToDataSource()
                BubbleEvent = False
            End If
        End Sub

Answer 1

Hi...
         Copy the code and change ur matrix id...
Private Sub SBO_Application_RightClickEvent(ByRef eventInfo As SAPbouiCOM.ContextMenuInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.RightClickEvent
        If eventInfo.FormUID = "Ur Form ID" Then
            If (eventInfo.BeforeAction = True) Then
                Dim oMenuItem As SAPbouiCOM.MenuItem
                Dim oMenus As SAPbouiCOM.Menus
                Dim omat As SAPbouiCOM.Matrix
                Dim GCols As SAPbouiCOM.Columns
                oitem = OForm.Items.Item("Ur Matrix")
                omat = oitem.Specific
                GCols = omat.Columns
                Try
                    selItem = eventInfo.ItemUID
                    Dim oCreationPackage As SAPbouiCOM.MenuCreationParams
                    oCreationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)
                    oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING
                    oCreationPackage.UniqueID = "OnlyOnRC"
                    oCreationPackage.String = "Delete Row"
                    oCreationPackage.Enabled = True
                    oMenuItem = SBO_Application.Menus.Item("1280") 'Data'
                    oMenus = oMenuItem.SubMenus
                    oMenus.AddEx(oCreationPackage)
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            Else
                Dim oMenuItem As SAPbouiCOM.MenuItem
                Dim oMenus As SAPbouiCOM.Menus
                Try
                    SBO_Application.Menus.RemoveEx("OnlyOnRC")
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If
        End If
    End Sub
Menu Event...
If (pVal.MenuUID = "OnlyOnRC") And (pVal.BeforeAction = False) Then
            Try
                Dim oMenuItem As SAPbouiCOM.MenuItem
                Dim oMenus As SAPbouiCOM.Menus
                Dim omat As SAPbouiCOM.Matrix
                Dim GCols As SAPbouiCOM.Columns
                Dim i As Integer
                oitem = OForm.Items.Item("Ur Matrix")
                omat = oitem.Specific
                GCols = omat.Columns
                omat = OForm.Items.Item(selItem).Specific
                For i = 1 To omat.RowCount
                    If omat.IsRowSelected(i) = True Then
                        omat.DeleteRow(i)
                        Exit For
                    End If
                Next
            Catch ex As Exception
                SBO_Application.MessageBox(ex.Message)
            End Try
        End If
It will work..
Regards..
Billa 2007