Skip to Content
0
Former Member
Oct 26, 2010 at 06:28 AM

Multi selction in CFL

40 Views

hi all

Now i m able to select one record from CFL ,its working fine for one record

But while selecting multiple records ,only one record coming to matrix .and also inert one empty line in matrix.

Case "Color_mat"
                        Select Case pVal.ColUID
                            Case "txticode"
                                Select Case pVal.EventType
                                    Case SAPbouiCOM.BoEventTypes.et_VALIDATE
                                         Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST
                                        Dim bonCflEvents As SAPbouiCOM.ChooseFromListEvent
                                        Dim bonDTTable As SAPbouiCOM.DataTable
                                        Dim bonCflList As SAPbouiCOM.ChooseFromList
                                        Dim bnnstrUID As String
                                        bonCflEvents = pVal
                                        bnnstrUID = bonCflEvents.ChooseFromListUID
                                        bonDTTable = bonCflEvents.SelectedObjects
                                        bonCflList = lonConvForm.ChooseFromLists.Item(bnnstrUID)
                                        If Not (bonDTTable Is Nothing) Then
                                            If bonCflList.UniqueID = "COLITEMCFL1" Then
                                                gonMatConvMatrix.GetLineData(pVal.Row)
                                                   lonDetailDatasource.SetValue("U_Itmcode", lonDetailDatasource.Offset, bonDTTable.GetValue(0, 0))
                                                lonDetailDatasource.SetValue("U_ItemName", lonDetailDatasource.Offset, bonDTTable.GetValue("ItemName", 0))
                                                gonMatConvMatrix.SetLineData(pVal.Row)
                                                If pVal.Row = gonMatConvMatrix.VisualRowCount Then
                                                    lonDetailDatasource.SetValue("U_Itmcode", lonDetailDatasource.Offset, "")
                                                    lonDetailDatasource.SetValue("U_ItemName", lonDetailDatasource.Offset, "")
                                                    lonDetailDatasource.SetValue("U_Avail", lonDetailDatasource.Offset, "")
                                                    lonDetailDatasource.SetValue("LineId", lonDetailDatasource.Offset, pVal.Row + 1)
                                                    gonMatConvMatrix.AddRow()
                                                    gonMatConvMatrix.SetLineData(pVal.Row + 1)
                                                    gonMatConvMatrix.FlushToDataSource()

                                                End If
                                            Else

                                            End If
                                        End If
                                End Select
                        End Select