主题：分页加载与流水账，代码问题，老师帮忙看下！

 把例子传上来。

 你只有修改了 结余 列，才会计算总库存的，表达式列不会触发 DataColChanged。表达式列如果要触发DataColChanged，看这里 http://www.foxtable.com/help/topics/2381.htm

 看了一下，不明白你为什么要做流水账？明明直接统计即可的。

1、删除结余列，入库数量和出库数量改成数据列

2、编写datacolchanged的代码

Select Case e.DataCol.Name
    Case "辅材编号"
        Dim filter As String = "辅材编号 = '" & e.DataRow("辅材编号") & "'"
        e.DataRow("入库数量") = DataTables("fucairuku").SQLCompute("sum(入库数量)", filter)
        e.DataRow("出库数量") = DataTables("fucairuku").SQLCompute("sum(出库数量)", filter)
        e.DataRow("库存总量") = e.DataRow("入库数量") - e.DataRow("出库数量")
End Select

可以，只是感觉多余。

 第一：这段代码，需要你修改了辅材编号，或者重置列辅材编号，才能会统计的；

 第二：如果你希望做一个按钮重新统计，你就要用代码 Datatables("库存").DataCols("辅材编号").RaiseDataColChanged()；

 第三：如果你希望修改了出库入库的数据以后，就马上重新统计，就需要在出库入库的datacolchanged写入必要代码，参考 http://www.foxtable.com/help/topics/1472.htm

 测试了一下，这样可能会快一些。

Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select 辅材编号, (Select sum(入库数量) from {fucairuku} As a where a.辅材编号 = c.辅材编号) - (Select sum(出库数量) from {fucaichuku} As a where a.辅材编号 = c.辅材编号) As 库存 from {fucai} As c"
Dim dt As DataTable = cmd.ExecuteReader
For Each dr As DataRow In DataTables("fucai").DataRows
    Dim fdr As DataRow = dt.Find("辅材编号 = '" & dr("辅材编号") & "'")
    If fdr IsNot Nothing Then
        dr("库存总量") = fdr("库存")
    Else
        dr("库存总量") = Nothing
    End If
Next

 回复19楼，不可能，计算的代码肯定是正确的，请认真测试。入库、出库以后，把表保存以后，计算才会正确的。

只要不需要用到表达式或者关联表，就可以不设置表间关联。

是的，都不是最新的。你可以在加载以后运行这句代码 DataTables("fucai").DataCols("辅材编号").RaiseDataColChanged()

嗯嗯，是的，在afterload事件写入这句代码。每看一页，就重新统计一次。

那就增加一个查询表，用这样的sql语句，需要更新的时候，重新load一次。

http://www.foxtable.com/help/topics/2321.htm

Select 辅材编号, (Select sum(入库数量) from {fucairuku} As a where a.辅材编号 = c.辅材编号) - (Select sum(出库数量) from {fucaichuku} As a where a.辅材编号 = c.辅材编号) As 库存 from {fucai} As c