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

到后来发现是重复保存导致的,贴出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
Next
'数值列若为空自动填0---
Functions.Execute("EndMyEdit",e.DataRow)
[此贴子已经被作者于2019/1/22 10:42:34编辑过]