Copied down row entries by CFL in Matrix

Question

hello expert
i created one form which have one matrix and one add row button.matrix have three colum like name,lname and age.name colum have CFL.when i added one then one more row and selected contend of cfl in it work fine but after adding two row when i go to change the content of first row by cfl . its copied the entries of down row not select the coosing entries .pls help me sir
                                                                   thanx a lot

Answer 1

Hello expert
   for CFL i used this coading
                        If oCFL.UniqueID = "CFL_17" Then
                            Dim i As Integer
                            Dim j As Integer
                            Dim val1 As String
                            Dim val2 As String
                            Dim val3, val4 As String
                            Dim val5 As Integer
                            Dim oRecordSet As SAPbobsCOM.Recordset = objMain.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                            oMatrix = oForm.Items.Item("orad1").Specific
                            val1 = oDataTable.GetValue("Code", 0)
                            val2 = oDataTable.GetValue("U_TName", 0)
                            val3 = oDataTable.GetValue("U_TName", 0)
                            val4 = oDataTable.GetValue("U_TType", 0)
                            val5 = 1
                            For i = 0 To oDataTable.Rows.Count - 1
                                oMatrix.FlushToDataSource()
                                oForm.DataSources.DBDataSources.Add("@PACK8")
                                oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRid", pVal.Row - 1, val1)
                                oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRName", pVal.Row - 1, val2.ToString.Trim())
                                oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRDesc", pVal.Row - 1, val3.ToString.Trim())
                                oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_IRType", pVal.Row - 1, val4.ToString.Trim())
                                oForm.DataSources.DBDataSources.Item("@PACK8").SetValue("U_Qty", pVal.Row - 1, val5)
                                Dim RS As SAPbobsCOM.Recordset
                                RS = objMain.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                                RS.DoQuery("Select T2.ListName,T0.PriceList,T0.Price from ITM1 T0,OITM T1,OPLN T2 where T0.ItemCode = T1.ItemCode and T2.BASE_NUM=T0.PriceList and T1.ItemName='" & val4 & "' ")
                                RS.MoveFirst()
                                If (colItemRPriceList.ValidValues.Count <= 0) Then
                                    While RS.EoF = False
                                        Dim a, b As String
                                        a = RS.Fields.Item("PriceList").Value
                                        b = RS.Fields.Item("Price").Value
                                        colItemRPriceList.ValidValues.Add(RS.Fields.Item("ListName").Value, RS.Fields.Item("Price").Value)
                                        'colItemPriceList.Columns.Item("V_7").Cells.Item(pVal.Row).Specific.ValidValues.Add(RS.Fields.Item("PriceList").Value, RS.Fields.Item("Price").Value)
                                        RS.MoveNext()
                                    End While
                                End If
                                oMatrix.LoadFromDataSource()
                                oMatrix.SetLineData(pVal.Row)
                                If Not i = oDataTable.Rows.Count - 1 Then
                                    oMatrix.AddRow()
                                End If
                            Next
                        End If