你好阿米特

步骤：

1。 获取标题行

2。 获取您要更新的子级表行，这里有些棘手，我使用了不定式循环按lineid获取行

3。 更新该行并更新UDO记录

这是一个简单的代码

将oGeneralService用作SAPbobsCOM.GeneralService
         Dim oHeaderParams作为SAPbobsCOM.GeneralDataParams
         Dim oHeadTableRow作为SAPbobsCOM.GeneralData
         Dim sCmp作为SAPbobsCOM.CompanyService = oCompany.GetCompanyService
         oGeneralService = sCmp.GetGeneralService（" UDO_HEAD"）

         '设置用于接收特定记录的参数
         oHeaderParams = oGeneralService.GetDataInterface（SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralDataParams）
         oHeaderParams.SetProperty（" DocEntry"，" 1"）'您的记录代码
         '获取UDO记录
         尝试
             oHeadTableRow = oGeneralService.GetByParams（oHeaderParams）
         异常捕获
             'UDO记录不存在
             MsgBox（例如消息）
             退出子
         结束尝试


         将昏暗的oChildTableRows设置为SAPbobsCOM.GeneralDataCollection = oHeadTableRow.Child（" UDO_CHILD"）

         昏暗的LineNum作为整数= 0
         Dim bFound为布尔=假
         '这是一个技巧，使用不定式循环
         做
             尝试
                 昏暗的oChildTableRow作为SAPbobsCOM.GeneralData = oChildTableRows.Item（LineNum）
                 如果oChildTableRow.GetProperty（" LineId"）=" 3"，则'LINENUM_MACTHING
                     '更新过程到了
                     oChildTableRow.SetProperty（" U_MYFIELD"，"新值"）
                     bFound =真
                     退出做
                 万一
             异常捕获
                 '不定式循环结束，正在退出，因为找不到记录...。
                 '或达到子表的最大行数
                 退出做
             结束尝试
             '得到下一行
             LineNum + = 1
         循环
         '
         如果没有找到
             '找不到，添加新记录
             昏暗的oChildTableRow为SAPbobsCOM.GeneralData = oChildTableRows.Add（）
             oChildTableRow.SetProperty（" U_MYFIELD"，"新值"）
             bFound =真
         万一
         如果找到
             '提交更改
             oGeneralService.Update（oHeadTableRow）

致谢

Janos