主题：[求助]

 比如以前一个商品价格是15  现在商品1个价格是10元，输入 数量 与金额  后 单价变成12.5元

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

代码我改成这样了

现在我希望只对筛选出的日期段数据进行自动计算 ， 其它情况按 金额/数量  输入 单价即可

怎么改？