请问什么代码会导致行重复多存了一行？完全一样复制多了一个行，导致数据重复，好奇怪啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：2.png

1张主表+2张子表的架构。1年内出现10多次这样的情况。从一开始以为是重复派编号（http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127231&replyID=&skin=1 ）

到后来发现是重复保存导致的，贴出BeforeSaveDataRow的代码。如果要更多代码，请客服联系我。我已经做了好多好多项目，也就这个模块会出现重复，太奇怪了。

CarFixAddTime的获取方法：向服务器通过 Select GetDate() 获取，在DataRowAdding事件里

BeforeSaveDataRow：

'-----必填检测-----

If e.DataRow.IsNull("CompanyID") OrElse e.DataRow.IsNull("CarFixID") Then '判断是否不符合验证要求

e.Cancel = True '取消存盘

Return

End If

'-----必填检测-----

e.DataRow("CarFixLastEditUser") = PublicMHUserID

e.DataRow("CarFixLastEditTime")= Functions.Execute("SqlDate")

'数值列若为空自动填0---

Dim dls As new List (of String )

dls.Add("CarFixItemCost")

dls.Add("CarFixTotalPrice")

dls.Add("CarFixLossPrice")

dls.Add("CarFixCommission")

dls.Add("CarFixTax")

dls.Add("CarFixWorkCost")

dls.Add("CarFixPayCash")

dls.Add("CarFixPayBank")

dls.Add("CarFixPayAli")

dls.Add("CarFixPayWechat")

For Each d As String In dls

If e.DataRow.IsNull(d) Then

e.DataRow(d) =0

End If

'数值列若为空自动填0---

Functions.Execute("EndMyEdit",e.DataRow)

[此贴子已经被作者于2019/1/22 10:42:34编辑过]

主题：请问什么代码会导致行重复多存了一行？完全一样复制多了一个行，导致数据重复，好奇怪啊