Trying to Bind Matrix to DBDatasource

Question

Hi,
I cannot seem to get my matrix bound to a system datasource (POR1)
The Error I get is "Data Source - Not  A User Datasource"
This occurs when trying to bind the first column.
(  colItem.DataBind.SetBound(True, "POR1", "ItemCode" )
I am trying to do this in a new tab in the purchase order form (142)
odbs is a variable with class scope.
Please help :
        odbs = oform.DataSources.DBDataSources.Add("POR1")
        oNewItem = oform.Items.Add("Lmat", SAPbouiCOM.BoFormItemTypes.it_MATRIX)
        oItem = oform.Items.Item("38")
        oNewItem.Left = oitem.Left
        oNewItem.Width = oItem.Width
        oNewItem.Top = oitem.Top
        oNewItem.Height = oitem.Height
        oNewItem.AffectsFormMode = False
        oNewItem.FromPane = 15
        oNewItem.ToPane = 15
        omat = oNewItem.Specific
        Dim colItem As SAPbouiCOM.Column
        Dim colItemD As SAPbouiCOM.Column
        Dim colQty As SAPbouiCOM.Column
        Dim colQtyO As SAPbouiCOM.Column
        Dim colSO As SAPbouiCOM.Column
        Dim l As SAPbouiCOM.LinkedButton
        Dim l2 As SAPbouiCOM.LinkedButton
        colItem = omat.Columns.Add("colItem", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON)
        colItem.Width = "125"
        colItem.TitleObject.Caption = "Item"
        colItem.DataBind.SetBound(True, "POR1", "ItemCode")
        colItem.Visible = True
        l = colItem.ExtendedObject
        l.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_Items
        colItemD = omat.Columns.Add("colItemTxt", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        colItemD.Width = "225"
        colItemD.TitleObject.Caption = "Item Name"
        colItemD.DataBind.SetBound(True, "POR1", "Dscription")
        colItemD.Visible = True
        colQty = omat.Columns.Add("colQty", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        colQty.Width = "75"
        colQty.TitleObject.Caption = "Qty"
        colQty.DataBind.SetBound(True, "POR1", "Quantity")
        colQty.Visible = True
        colQtyO = omat.Columns.Add("colQtyO", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        colQtyO.Width = "75"
        colQtyO.TitleObject.Caption = "Qty"
        colQtyO.DataBind.SetBound(True, "POR1", "OpenQty")
        colQtyO.Visible = True
        colSO = omat.Columns.Add("colSO", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON)
        colSO.Width = "125"
        colSO.TitleObject.Caption = "Sales Order"
        colSO.DataBind.SetBound(True, "POR1", "U_SONumber")
        colSO.Visible = True
        l2 = colSO.ExtendedObject
        l2.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_Order

Answer 1

Nick,
Yes, you can add link button in grid column. There are 4 type of GridColumn, CheckBoxColumn, ComboBoxColumn, EditTextColumn, PictureColumn objects.  And you can set the linkobjecttype for EditTextColumn
Please refer to BoGridColumnType for more info.
sample code:
oItem = oItems.Add("My_Grid", SAPbouiCOM.BoFormItemTypes.it_GRID)
            oItem.Top = 30
            oItem.Left = 10
            oItem.Width = 200
            oItem.Height = 100
            Dim oGrid As SAPbouiCOM.Grid = oItem.Specific
            Dim oDataTable = oForm.DataSources.DataTables.Add("POLines")
            oGrid.DataTable = oDataTable
            oDataTable.ExecuteQuery("SELECT ItemCode AS 'Item Code', Dscription AS 'Item Name', Quantity FROM POR1 WHERE DocEntry = 1")
            Dim colItemCode As SAPbouiCOM.GridColumn = oGrid.Columns.Item(0)
            colItemCode.Type = SAPbouiCOM.BoGridColumnType.gct_EditText           
            Dim editColItemCode As SAPbouiCOM.EditTextColumn = CType(colItemCode, SAPbouiCOM.EditTextColumn)
            editColItemCode.LinkedObjectType = 4
Regards, Yatsea