Matrix With UDO Datasource

Question

Hi,
I have been through all the Matrix Samples and read many threads here but I just dont get a few things with the Matrix.
I have created an add on that adds a new folder to the Business Partners Form,
I can have built a matrix in this form and created bound columns bound to my UDO Table @xxxx
I have an event that fires when a business partner is chosen and the folder is only shown when a Customer is selected.
I can even get the matrix to fill with data related to the specific customer only when the customer is selected - using conditions on the DBDataSource.
This is all great but the 2 problems I have are :
I have created a button called Add Row that Adds a Row to Matrix - this button turns into an Update button when the row is added in the Matrix.
Problem 1 : When the row is added in the Matrix it takes the data from the last row of the data and duplicates it in the new row - you can change this data of course however I would like a blank row inserted instead.
Problem 2 : When I update I do a Matrix.FlushToDataSource - then I requery but it has not saved the new entry ?
How do I get the new entry to save into the database.
Any Help would be appreciated.
Thanks

Answer 1

Thanks - I sent the Screen shot - here is the event code
            If ((pVal.FormType = 134 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
                 oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
                If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
                        oNewItem = oForm.Items.Add("BOMFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
                    oItem = oForm.Items.Item("9")
                    oNewItem.Top = oItem.Top
                    oNewItem.Height = oItem.Height
                    oNewItem.Width = oItem.Width
                    oNewItem.Left = oItem.Left + oItem.Width
                    oFolderItem = oNewItem.Specific
                    oFolderItem.Caption = "Lynxs BOM"
                    oFolderItem.GroupWith("9")
                    SetupBOMMatrix()
                    oForm.PaneLevel = 1
                End If
                If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
                    If pVal.ItemUID = "mat" Or pVal.ItemUID = "colitem" Then
                        Try
                            Dim oCFLEvento As SAPbouiCOM.IChooseFromListEvent
                            oCFLEvento = pVal
                            Dim sCFL_ID As String
                            sCFL_ID = oCFLEvento.ChooseFromListUID
                            Dim oForm1 As SAPbouiCOM.Form
                            oForm1 = SBO_Application.Forms.Item(FormUID)
                            Dim oCFL As SAPbouiCOM.ChooseFromList
                            oCFL = oForm1.ChooseFromLists.Item(sCFL_ID)
                            If oCFLEvento.BeforeAction = False Then
                                Dim oDataTable As SAPbouiCOM.DataTable
                                oDataTable = oCFLEvento.SelectedObjects
                                Dim val As String
                                Dim nam As String
                                Try
                                    val = oDataTable.GetValue(0, 0)
                                    nam = oDataTable.GetValue(1, 0)
                                 Catch ex As Exception
                                    val = "none"
                                    nam = "none"
                                End Try
                                 Try
                                    Call UpdateCells(oForm1, pVal.Row, val, nam)
                                Catch
                                    MsgBox("Couldnt Set Data Tables")
                                End Try
                            End If
                        Catch
                            MsgBox("Error in Item Event - CFL : " & Err.Description)
                        End Try
                    End If
                End If
                 If pVal.ItemUID = "btnAddRow" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
                    ' SOMETHING IS AMISS HERE
                    Dim ob As SAPbouiCOM.Button = oForm.Items.Item("btnAddRow").Specific
                    Dim oe As SAPbouiCOM.EditText = oForm.Items.Item("5").Specific
                    oMatrix = oForm.Items.Item("mat").Specific
                    If MatrixMode = "Nothing" Then
                        oMatrix.AddRow()
                        Dim i As Integer
                        i = oMatrix.RowCount
                        Dim oc As SAPbouiCOM.Column
                        Dim ocell As SAPbouiCOM.Cell
                        Dim oed As SAPbouiCOM.EditText
                        oc = oMatrix.Columns.Item("colArea")
                        oed = oc.Cells.Item(i).Specific
                        oed.String = ""
                        oc = oMatrix.Columns.Item("colItem")
                        oed = oc.Cells.Item(i).Specific
                        oed.String = ""
                        oc = oMatrix.Columns.Item("colItemtxt")
                        oed = oc.Cells.Item(i).Specific
                        oed.String = ""
                        oc = oMatrix.Columns.Item("colFitted")
                        oed = oc.Cells.Item(i).Specific
                        oed.Value = 0
                        oc = oMatrix.Columns.Item("colCritica")
                        oed = oc.Cells.Item(i).Specific
                        oed.Value = 0
                        oc = oMatrix.Columns.Item("colSpares")
                        oed = oc.Cells.Item(i).Specific
                        oed.Value = 0
                        MatrixMode = "Add"
                        ob.Caption = "Update Row"
                    Else
                        oMatrix.FlushToDataSource()
                        Dim oConditions As SAPbouiCOM.Conditions
                        Dim ocondition As SAPbouiCOM.Condition
                        oConditions = New SAPbouiCOM.Conditions
                        ocondition = oConditions.Add
                        ocondition.BracketOpenNum = 1
                        ocondition.Alias = "U_CARDCODE"
                        ocondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
                        ocondition.CondVal = oe.Value.ToString
                        ocondition.BracketCloseNum = 1
                        oDBDatasource.Query(oConditions)
                        oMatrix.LoadFromDataSource()
                        MatrixMode = "Nothing"
                        ob.Caption = "Add Row"
                    End If
                End If
                If pVal.ItemUID = "BOMFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
                    '// when the new folder is clicked change the form's pane level
                    '// by doing so your items will apear on the new folder
                    '// assuming they were placed correctly and their pane level
                    '// was also set accordingly
                    oForm.PaneLevel = 11
                End If
            End If