Matrix-binding problem

Question

Hi,
I created one UDO form.
in that i am trying to fill the matrix with recordset.
becoz i am selecting the value from combobox and i run the query with this value.
so this resultant record set i want to fill in matrix rows.
oForm = SBO_Application.Forms.Item("JBWISSUES_")
oItem = oForm.Items.Item("mtx_0")
oMatrix = oItem.Specific
oColumns = oMatrix.Columns
'frm = app.Forms.ActiveForm
'oMat = frm.Items.Item("gd_act").Specific
'oMatrix.Clear()
oComboBox = oForm.Items.Item("27").Specific
ds = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
ds.DoQuery("select a.code as Code,b.Itemname as Desc1,a.quantity as Quantity from itt1 a,oitm b where a.code=b.Itemcode and a.code='" & oComboBox.Selected.Value & "'")
ds.MoveFirst()
oColumn = oColumns.Item("col_0")
For i = 0 To ds.RecordCount - 1
oColumn.ValidValues.Add(ds.Fields.Item("Code").Value, ds.Fields.Item("Desc1").Value)
ds.MoveNext()
Next
oMatrix.AddRow()
here i am getting error like Object reference not set to instance error at oColumn.validvalues....... plz hel p me in that.
Regards,
Ravi

Answer 1

Hai Ravi,
            U try this coding..........Write the function to fill the matrix with combo and then call this function in combo select event........
Sub LoadGridCombo()
        Dim oMat As SAPbouiCOM.Matrix
        Dim oCol As SAPbouiCOM.Column
        Dim oCmb As SAPbouiCOM.ComboBox
        Dim ds As SAPbobsCOM.Recordset
        Dim i As Integer
        Try
            frm = app.Forms.ActiveForm
            oMat = frm.Items.Item("gd_act").Specific
            oMat.Clear()
            oCmb = frm.Items.Item("cmb_dept").Specific
            ds = com.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            ds.DoQuery("Select Code,U_Activity from [@PLANT_ACTIVITY] where U_dept='" & oCmb.Selected.Value & "'")
            ds.MoveFirst()
            oMat = frm.Items.Item("gd_act").Specific
            oCol = oMat.Columns.Item("g_act")
            If oCol.ValidValues.Count > 0 Then
                          For i = 0 To ds.RecordCount - 1
                oCol.ValidValues.Add(ds.Fields.Item(0).Value, ds.Fields.Item(1).Value)
                ds.MoveNext()
            Next
End If
            oCol = oMat.Columns.Item("g_freq")
            If oCol.ValidValues.Count = 0 Then
                oCol.ValidValues.Add("1", "Annually")
                oCol.ValidValues.Add("2", "Semi Annually")
                oCol.ValidValues.Add("3", "Quarterly")
            End If
            oMat.AddRow()
        Catch ex As Exception
            app.MessageBox(ex.Message)
        End Try
    End Sub
Regards,
Anitha