BeforeSaveDataRow 原代码:
Dim fdr As DataRow = DataTables("人工费主表").find("关联编号 = '" & e.DataRow("关联编号") & "'")
If fdr Is Nothing Then
fdr = DataTables("人工费主表").AddNew
fdr("项目名称") = e.DataRow("项目名称")
fdr("工资月份") = e.DataRow("工资月份")
fdr("关联编号") = e.DataRow("关联编号")
fdr("账务日期") = e.DataRow("账务日期")
fdr("档案编号") = e.DataRow("档案编号")
DataTables("人工费主表").Save
End If
连续新增按钮代码:
Tables("人工费明细表").Current.Save
Dim cr As Row = Tables("人工费明细表").current
Dim nr As Row = Tables("人工费明细表").AddNew()
nr("项目名称") = cr("项目名称")
nr("档案编号") = cr("档案编号")
nr("账务日期") = cr("账务日期")
nr("工资月份") = cr("工资月份")
上面的代码可用,单条记录保存不会出错
就是在第一条记录新建,然后连续新增时会出错下面提示:
.NET Framework 版本:2.0.50727.8762
Foxtable 版本:2018.3.9.1
错误所在事件:表,人工费明细表,BeforeSaveDataRow
详细错误信息:
调用的目标发生了异常。
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据