How to set the returned value of CFL in a matrix

Question

dear all,
I got a matrix binded to a DataSource and two CFLs are in this matrix. The codes for handling AfterChooseFromList is as following.  It works almost fine. But when a docoment containing more than two
rows in the matrix and I reselect the CFL cell values more than two times, an error occured sometimes, not everytime. The error message is "This entry already exists in the following tables @CYW_PRROW [Message 131-183]"
I have tried to find out what kind of situation to cause this error, but still in the mud.
Can anybody give me some suggestion? Thanks.
Public Sub OnAfterChooseFromList_Matrix(ByVal pVal As SAPbouiCOM.ItemEvent)
        Dim ActionSuccess As Boolean = pVal.ActionSuccess
        Dim oform As SAPbouiCOM.Form = SBO_Application.Forms.Item(pVal.FormUID)
        Dim oitem As SAPbouiCOM.Item = oform.Items.Item("mtx_0")
        Dim omatrix As SAPbouiCOM.Matrix = CType(oitem.Specific, SAPbouiCOM.Matrix)
        Dim oDataTable As SAPbouiCOM.DataTable
        oDataTable = pVal.SelectedObjects
        Dim val As String
        Try
            val = oDataTable.GetValue(0, 0)
        Catch ex As Exception
        End Try
        omatrix.GetLineData(pVal.Row)
        oform.DataSources.DBDataSources.Item("@CYW_PRROW").Offset = pVal.Row - 1
        If pVal.ColUID = "col_0" Then
            Try
                oform.DataSources.DBDataSources.Item("@CYW_PRROW").SetValue("U_PRItemCode", pVal.Row - 1, CStr(val))
            Catch ex As Exception
                SBO_Application.MessageBox(ex.Message)
            End Try
        Else
            Try
                oform.DataSources.DBDataSources.Item("@CYW_PRROW").SetValue("U_PRSupp", pVal.Row - 1, CStr(val))
            Catch ex As Exception
                SBO_Application.MessageBox(ex.Message)
            End Try
        End If
        omatrix.SetLineData(pVal.Row)
        If pVal.FormMode = "1" Then
            oform.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE
        End If
    End Sub
Another quesion, can I assign the returned value of CLF directly to the cell?

Answer 1

Hello  Chao-Yi Wu,
I don't have a real solution for you - just a few comments:
1. At
        Try
            val = oDataTable.GetValue(0, 0)
        Catch ex As Exception
        End Try
I would add
        Try
            if oDataTable Is Nothing Then Exit Sub ' If the User cancels the CFL
            val = oDataTable.GetValue(0, 0)
        Catch ex As Exception
        End Try
2. At
   If pVal.ColUID = "col_0" Then
I would make the branch by the pVal.ChooseFromListUID instead of the ColUID
and the 2nd not with "Else" but with "Else If ....."
3. It may work with EditText.String/Value of a cell but I never do that because of performance-reasons.
I always do it the same way as you in principle - I don't really know what the problem is.
4. Maybe some unique indexes on your table (although this should give an error at the update and not at CFL when "the unique-law is broken"...)?
Sorry - that's all for the moment.
Cheers,
Roland