主题：[求助]

请做一个foxtable的例子上传上来。

If e.DataCol.Name = "入库_数量" AndAlso e.DataRow.IsNull("入库_金额") = False OrElse e.DataCol.Name = "入库_金额" Then
    If Tables(e.DataTable.Name).Filter > "" Then
        Dim filter As String = "货物名称 = '" & e.DataRow("货物名称") & "' and 入库日期 <= #" & e.DataRow("入库日期") & "#"
        filter &= " and " & Tables(e.DataTable.Name).Filter > ""
        systemready = False
        Dim dj As Double = e.DataTable.Compute("sum(入库_金额)", filter) / e.DataTable.Compute("sum(入库_数量)", filter)
        e.DataTable.ReplaceFor("单价", dj, filter)
        systemready = True
    Else
        systemready = False
        e.DataRow("单价") = e.DataRow("入库_金额")/ e.DataRow("入库_数量")
        systemready = True
    End If  
End If

If e.DataCol.Name = "入库_数量" AndAlso e.DataRow.IsNull("入库_金额") = False OrElse e.DataCol.Name = "入库_金额" Then
    If Tables(e.DataTable.Name).Filter > "" Then
        Dim filter As String = "货物名称 = '" & e.DataRow("货物名称") & "' and 入库日期 <= #" & e.DataRow("入库日期") & "#"
        filter &= " and " & Tables(e.DataTable.Name).Filter
        systemready = False
        Dim dj As Double = e.DataTable.Compute("sum(入库_金额)", filter) / e.DataTable.Compute("sum(入库_数量)", filter)
        e.DataTable.ReplaceFor("单价", dj, filter)
        systemready = True
    Else
        systemready = False
        e.DataRow("单价") = e.DataRow("入库_金额")/ e.DataRow("入库_数量")
        systemready = True
    End If  
End If

要筛选才会平均啊

筛选以后修改数据金额或者数量才会改啊。

你到底想做什么？你筛选数据以后，改金额就会自动计算单价啊

 入库的单价肯定是不应该修改的，问题是账不对而已，你在计账的时候处理清楚就行啊。