Hi To All,
I had added a column in system matrix... According to the selection of item from the first column, the corresponding number should be get set in the column which i had created in that system matrix.....
Sub GridLoad(ByVal U_Ven As String, ByVal ItemID As String)
Try
Dim db2 As SAPbouiCOM.DBDataSource = objFrm.DataSources.DBDataSources.Item("HeaderTable")
Dim objDB As SAPbouiCOM.DBDataSource = objFrm.DataSources.DBDataSources.Item("ChildTable")
Dim mat As SAPbouiCOM.Matrix = objFrm.Items.Item("38").Specific
Dim rs As SAPbobsCOM.Recordset = objCom.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
Dim col As SAPbouiCOM.Column = mat.Columns.Item("U_CNo")
rs.DoQuery("Select U_ID From [@TableName] Where U_Item = '" & ItemID & "' And U_Vendor = '" & U_Ven & "'")
Debug.Print(rs.Fields.Item("U_ID").Value)
objFrm.DataSources.UserDataSources.Item("U_CNo").ValueEx = rs.Fields.Item("U_ID").Value
System.Runtime.InteropServices.Marshal.ReleaseComObject(rs)
GC.WaitForPendingFinalizers()
GC.Collect()
rs = Nothing
Catch ex As Exception
End Try
End Sub
i had called this fuction in
Case SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST
GridLoad(db.GetValue("CardCode", db.Offset).Trim, objDt.GetValue(0, 0))
I had already posted this question, but til nw i dint get any clear idea.....