篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vbscript 插入一个tabla con hijos相关的知识,希望对你有一定的参考价值。
Dim oServiceOrigen As SAPbobsCOM.GeneralService
Dim oGeneralDataOrigen As SAPbobsCOM.GeneralData
Dim sCmp As SAPbobsCOM.CompanyService
Dim oChild As SAPbobsCOM.GeneralData
Dim ChildrenDetalleMezcla As SAPbobsCOM.GeneralDataCollection 'Nodo hijo 1'
Dim ChildrenDetalleAgente As SAPbobsCOM.GeneralDataCollection 'Nodo hijo 2'
sCmp = SBOLDObjeto.Company.GetCompanyService
'instancia padre'
oServiceOrigen = sCmp.GetGeneralService("LDT_UST_COM_METAS")
'carga de datos a objeto padre'
oGeneralDataOrigen = oServiceOrigen.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData)
oGeneralDataOrigen.SetProperty("U_LDT_UDF_Descrip", Descripcion 'datos a asignar')
oGeneralDataOrigen.SetProperty("U_LDT_UDF_NomPeriodo", PeriodoNombre)
oGeneralDataOrigen.SetProperty("U_LDT_UDF_PerInicio", FechaIni)
oGeneralDataOrigen.SetProperty("U_LDT_UDF_PerFinal", FechaFin)
ChildrenDetalleMezcla = oGeneralDataOrigen.Child("LDT_UST_COM_MEZCLA")
ChildrenDetalleAgente = oGeneralDataOrigen.Child("LDT_UST_COM_MT_AG")
'Carga de datos objeto hijo'
oChild = ChildrenDetalleAgente.Add()
oChild.SetProperty("U_LDT_UDF_Cod_Agente", CodAgente)
'Add the new row, including children, to database
oServiceOrigen.Add(oGeneralDataOrigen)
System.Runtime.InteropServices.Marshal.ReleaseComObject(oServiceOrigen)
System.Runtime.InteropServices.Marshal.ReleaseComObject(oGeneralDataOrigen)
oGeneralDataOrigen = Nothing
oServiceOrigen = Nothing
GC.Collect()
以上是关于vbscript 插入一个tabla con hijos的主要内容,如果未能解决你的问题,请参考以下文章