How to fill matrix with the output of recordset query?

Question

Hi all,
I want a user matrix to load data when I hit a button and the data to be filled is the output of an sql query. binding the matrix columns with table columns and then load the matrix with DBDatasource attached to that table will not do in this case as the columns in the sql query are from several different tables or views. 
writing following line to do this takes several minutes to load the data:
For j = 0 To Reordset.RecordCount - 1
Matrix.AddRow()
Matrix.Columns.Item("col1").Cells.Item(i).Specific.value =  Recordset.Fields.Item("cardcode").Value
Recordset.movenext()
next
Is there any other way to fill the matrix in this case, which loads the data faster?
Regards,

Answer 1

Hello Binita,
I've tested the CFL for DataTable-Matrixes in my test-AddOn. But there's still one problem left. Maybe you find it out (I will need this in the future too...).
The ChooseFromList must be added behind the DataTable-Bind, which is done on every MTX-Load (it's not from the sample above, so the UIDs are new ones):
            oDt = oDts.Item("dt_test")
            query = "SELECT  * FROM [@T_CONVTOOLS01]"
            oDt.ExecuteQuery(query)
            oMtx.Columns.Item("0").DataBind.Bind("dt_test", "Code")
            oMtx.Columns.Item("1").DataBind.Bind("dt_test", "U_Alpha01")
            oMtx.Columns.Item("2").DataBind.Bind("dt_test", "U_Price01")
            oMtx.Columns.Item("3").DataBind.Bind("dt_test", "U_Quant01")
            oMtx.Columns.Item("4").DataBind.Bind("dt_test", "U_Date01")
            AddChooseFromLists()
            oMtx.LoadFromDataSource()
...where AddChooseFromLists() is...
  Private Shared Sub AddChooseFromLists()
        Try
            Dim oCfls As SAPbouiCOM.ChooseFromListCollection
            Dim oCons As SAPbouiCOM.Conditions
            Dim oCon As SAPbouiCOM.Condition
            Dim oCfl As SAPbouiCOM.ChooseFromList
            Dim oCflCreationParams As SAPbouiCOM.ChooseFromListCreationParams
            Dim oBtn As SAPbouiCOM.Button
            Dim oMtx As SAPbouiCOM.Matrix
            Dim oCol As SAPbouiCOM.Column
            Dim oEtx As SAPbouiCOM.EditText
            oMtx = oForm.Items.Item("MTX_TEST02").Specific
            oCfls = oForm.ChooseFromLists
            oCflCreationParams = SboCon.SboUI.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            oCflCreationParams.MultiSelection = False
            oCflCreationParams.ObjectType = SAPbouiCOM.BoLinkedObject.lf_BusinessPartner
            oCflCreationParams.UniqueID = "CFL_C1"
            oCfl = oCfls.Add(oCflCreationParams)
            '### OPTION:
            '# Shown ChooseFromList restricted by Conditions
            oCons = oCfl.GetConditions()
            oCon = oCons.Add()
            oCon.Alias = "CardType"
            oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL
            oCon.CondVal = "C"
            oCfl.SetConditions(oCons)
            oCol = oMtx.Columns.Item("1")
            oCol.ChooseFromListUID = "CFL_C1"
            oCol.ChooseFromListAlias = "CardCode"
        Catch e As Exception
            Microsoft.VisualBasic.MsgBox(className & ".AddChooseFromLists()" & vbCrLf & "Exception:" & vbCrLf & e.Message.ToString)
        End Try
    End Sub
But I'm running into problems when trying to set the MTX-Cell via DataTable at the CFL-Event (see comment):
            If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST Then
                Dim oMtx As SAPbouiCOM.Matrix
                Dim oCFLEvent As SAPbouiCOM.IChooseFromListEvent
                Dim oCFL As SAPbouiCOM.ChooseFromList
                Dim oDataTable As SAPbouiCOM.DataTable
                Dim cflID As String
                Dim oDt As SAPbouiCOM.DataTable = oForm.DataSources.DataTables.Item("dt_test")
                oCFLEvent = pVal
                cflID = oCFLEvent.ChooseFromListUID
                'Dim oForm As SAPbouiCOM.Form
                'oForm = SboConnection.SboUI.Forms.Item(FormUID)
                oCFL = oForm.ChooseFromLists.Item(cflID)
                If Not oCFLEvent.BeforeAction Then
                    oDataTable = oCFLEvent.SelectedObjects
                    If oDataTable Is Nothing Then Exit Sub
                    '############## Matrix Test #######################################################################
                    If (oCFLEvent.ItemUID = "MTX_TEST02") Then
                        oMtx = oForm.Items.Item("MTX_TEST02").Specific
                        '### CFL Results to UserForm
                        oDt.Rows.Offset = oCFLEvent.Row - 1
                        MsgBox(oDt.GetValue("U_Alpha01", oCFLEvent.Row - 1))
                        MsgBox(oDataTable.GetValue("CardCode", 0))
                        ' PROBLEM - can't get this working - don't know at the moment:
                        ' on other forms SetValue works....
                        oDt.SetValue("U_Alpha01", oCFLEvent.Row - 1, oDataTable.GetValue("CardCode", 0))
                        ' this also gives me problems...:
                        'oMtx.Columns.Item("1").Cells.Item(oCFLEvent.Row).Specific.value = oDataTable.GetValue("CardCode", 0)
                        oForm.Update()
                    End If
                End If
            End If
The CFL-Form opens and returns the choosen value(s) at the CFL-event. But writing to MTX still not works with this code...
Maybe you find the last piece. If so: please write here.
Cheers,
Roland
p.s.:
David Nussböck wrote
LOL - ROLAND WAS FASTER ))
...just one minute...