Sep 10, 2018 at 04:58 AM

How to bind Column of grid?

306 Views

I am getting Error "Unable to cast COM object of type 'System.__ComObject' to interface type 'SAPbouiCOM.Columns'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{C830390A-4D84-4DA6-8D9A-91322F9A37EC}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE))." while binging Grid column . Here is my code

Public Sub BindGrid()

Dim objgrid As SAPbouiCOM.Grid

Try

Dim oColumns As SAPbouiCOM.Columns

Dim oColumn As SAPbouiCOM.Column

oForm = objMain.objApplication.Forms.ActiveForm

objgrid = oForm.Items.Item("11").Specific

oColumns = objgrid.Columns

oColumn = oColumns.Item("ItemCode")

oColumn.DataBind.SetBound(True, "WTQ1", "ItemCode")

oColumn = oColumns.Item("Item Name")

oColumn.DataBind.SetBound(True, "WTQ1", "Dscription")

oColumn = oColumns.Item("Qty")

oColumn.DataBind.SetBound(True, "WTQ1", "Quantity")

oColumn = oColumns.Item("From Whs")

oColumn.DataBind.SetBound(True, "WTQ1", "FromWhsCod")

oColumn = oColumns.Item("ToWH")

oColumn.DataBind.SetBound(True, "WTQ1", "WhsCode")

Catch ex As Exception

MessageBox.Show(ex.Message)

objMain.LogError(ex)

End Try

End Sub