DataTables("仪器使用明细表").AllowEdit = True
Select Case e.DataCol.Name
Case "预借数量" ,"单价","已交数量"
If e.DataRow.Isnull("预借数量") Then
e.DataRow("金额") = Nothing
Else
e.DataRow("金额") = e.DataRow("单价") * e.DataRow("预借数量")
End If
e.DataRow("未交数量") = e.DataRow("预借数量") - e.DataRow("已交数量")
End Select
If Tables("仪器使用主表").Current IsNot Nothing Then
Tables("仪器使用主表").Current("总金额") = DataTables("仪器使用明细表").Compute("sum(金额)","借仪单号 = '" & Tables("仪器使用主表").Current("借仪单号") & "'")
End If
加好友 
发短信
Post By：2016/8/30 8:43:00 [显示全部帖子]
