If e.DataCol.Name = "入库_数量" AndAlso e.DataRow.IsNull("入库_金额") = False OrElse e.DataCol.Name = "入库_金额" Then
Dim filter As String = "货物名称 = '" & e.DataRow("货物名称") & "' and 入库日期 <= #" & e.DataRow("入库日期") & "#"
systemready = False
Dim dj As Double = e.DataTable.Compute("sum(入库_金额)", filter) / e.DataTable.Compute("sum(入库_数量)", filter)
e.DataTable.ReplaceFor("单价", dj, filter)
systemready = True
Else If e.DataCol.Name = "单价" OrElse e.DataCol.Name = "入库_数量" Then
systemready = False
e.DataRow("单价") = e.DataRow("入库_金额")/ e.DataRow("入库_数量")
systemready = True
End If
代码我改成这样了
现在我希望只对筛选出的日期段数据进行自动计算 , 其它情况按 金额/数量 输入 单价即可
怎么改?