’库存表
If e.DataCol.Name = "编号" Then
e.DataRow("进货数量") = DataTables("采购明细").Compute("Sum(数量)","[编号] = '" & e.DataRow("编号") & "' and [单价] = '" & e.DataRow("单价") & "' and [审核] = true ")
End If
采购单
Select Case e.DataCol.name
Case "审核"
Dim dr As DataRow = DataTables("库存").Find("编号 = '" & e.DataRow("编号") & "' and 单价 = '" & e.DataRow("单价") & "'")
If dr IsNot Nothing Then
DataTables("库存").DataCols("编号").RaiseDataColChanged(dr)
End If
End Select
加好友 
发短信
Post By：2018/8/20 10:20:00 [只看该作者]
