您好，尼古拉斯-我们已经解决了此问题，感谢您的反馈。

如果有人需要此帖子，请尝试此。

Dim oReconService作为SAPbobsCOM.InternalReconciliationsService = oCompany.GetCompanyService（）。GetBusinessService（SAPbobsCOM.ServiceTypes.InternalReconciliationsService）Dim openTrans作为SAPbobsCOM.InternalReconciliationOpenTrans = oReconService.GetDataInterface（SAPbobss。 GetDataInterface（SAPbobsCOM.InternalReconciliationsServiceDataInterfaces.irsInternalReconciliationParams）对于i作为整数= 0到gridRecon.DataTable.Rows.Count-1如果gridRecon.DataTable.GetValue（" Select"，gridRecon.GetDataTableRowIndex（i））=" Y"，则SBar_Application。 （"正在对帐中，请稍候..."，SAPbouiCOM.BoMessageTime.bmt_Short，False）使用openTrans'对于收款第一行，如果gridRecon.DataTable.GetValue（" Type"，gridRecon.GetDataTableRowIndex（i）=" RC"然后 .InternalReconciliationOpenTransRows.Add（）.InternalReconciliationOpen TransRows.Item（x）.Selected = SAPbobsCOM.BoYesNoEnum.tYES .InternalReconciliationOpenTransRows.Item（x）.TransId = gridRecon.DataTable.GetValue（" TransId"，gridRecon.GetDataTableRowIndex（i））'日记帐ID：OJDT中的TransId。 InternalReconciliationOpenTransRows.Item（x）.TransRowId = 1'日记帐分录行号：JDT1中的Line_ID oIncomPayment = Math.Abs​​（gridRecon.DataTable.GetValue（"实际金额"，gridRecon.GetDataTableRowIndex（i）））'MsgBox（oIncomPayment）' oTotal = oARPayment-oIncomPayment .InternalReconciliationOpenTransRows.Item（x）.ReconcileAmount = oARPayment'gridRecon.DataTable.GetValue（" Actual Amount"，gridRecon.GetDataTableRowIndex（i））'此值应始终为正值。 但其中一行应记入贷方，一行应记入借方。 oTransId = gridRecon.DataTable.GetValue（" TransId"，gridRecon.GetDataTableRowIndex（i））'ElseIf gridRecon.DataTable.GetValue（" Type"，gridRecon.GetDataTableRowIndex（i））=" JE"然后，否则openTrans.CardOrAccount = SAPbobsCOM。 CardOrAccountEnum.coaCard .InternalReconciliationOpenTransRows.Add（）.InternalReconciliationOpenTransRows.Item（x）.Selected = SAPbobsCOM.BoYesNoEnum.tYES .InternalReconciliationOpenTransRows.Item（x）.TransId = gridRecon.DataTable.GetValue（" DataId。"） ）.InternalReconciliationOpenTransRows.Item（x）.TransRowId = 0'日记帐录入行号：JDT1中的Line_ID。 i）））'这应该始终是正值。 但其中一行应记入贷方，一行应记入借方。 Console.WriteLine（Math.Abs​​（gridRecon.DataTable.GetValue（" Actual Amount"，gridRecon.GetDataTableRowIndex（i））））如果gridRecon.DataTable.GetValue（" Type"，gridRecon.GetDataTableRowIndex（i））=" JE" 然后oJeTranID = gridRecon.DataTable.GetValue（" TransId"，gridRecon.GetDataTableRowIndex（i））olistPostedJE.Add（oJeTranID）结束如果结束，则结束 " RC"然后oARPayment + = Math.Abs​​（gridRecon.DataTable.GetValue（" Actual Amount"，i））如果x = x + 1结束，则结束如果下一步尝试reconParams = oReconService.Add（openTrans）例外捕获 SAP_APP.SetMessage（ex.ToString，SAPbouiCOM.BoStatusBarMessageType.smt_Error）oWriteText（Now＆"-"＆" [Err]-"＆ex.ToString，True）oCompany.EndTransaction（SAPbobsCOM.BoWfTransOpt.wf_RollBack）返回False结束尝试 oCompany.EndTransaction（SAPbobsCOM.BoWfTransOpt.wf_Commit）作为异常结束捕获