数据没有保存
If e.DataCol.Name = "审核" Then
If e.NewValue = True Then
e.DataRow("审核员") = user.name
e.DataRow("审核日期") = Date.Today
e.DataRow.Locked = True
For Each dr As DataRow In e.DataRow.GetChildRows("采购订单详细")
dr.Locked = e.DataRow.Locked
Dim dr2 As DataRow
dr2 = DataTables("采购完成情况表").SQLfind("[采购PO] = '" & dr("采购PO") & "'And [物料代码] = '" & dr("物料代码") & "'")
If dr2 IsNot Nothing Then
dr2("采购数量") = dr("采购数量")
dr2.save
Else
Dim nr As DataRow = DataTables("采购完成情况表").AddNew()
nr("采购PO") = dr("采购PO")
nr("供应商") = dr("供应商")
nr("物料代码") = dr("物料代码")
nr("物料名称") = dr("名称")
nr("规格型号") = dr("规格型号")
nr("采购数量") = dr("采购数量")
End If
Next
DataTables("采购完成情况表").save
End If
End If
加好友 
发短信
Post By：2020/11/21 9:23:00 [显示全部帖子]
