http://www.foxtable.com/help/index.html?n=2926.htm

例子上只有收入和支出2个列。如果我的系统里多了一列“结余”，“入库数量”和“出库数量”都是表达式列！如下图： 

此主题相关图片如下：qq图片20140527090352.jpg

我的代码如下：

1、删除原来的余额列，然后在项目事件Initialize中设置代码:

DataTables("fucai").DataCols.Add("总库存",Gettype(Double))  \'添加余额列,用于动态显示余额

2、将DataColChanged事件设为: （因为结余列是最初的原始库存，不是表达式列，这个代码我不知道结余列这样写对不对？）

3、表事件AfterMoveRow的代码保持不变：

   Dim Key As Decimal
   Dim Index As Integer
   Dim dc As DataCol
   Index = Math.Min(e.OldIndex, e.NewIndex)
   Key = e.Table.Rows(Index)("_SortKey")
   dc = e.Table.DataTable.DataCols("入库数量")
   dc.RaiseDataColChanged("[_SortKey] >= " & Key)

4、表事件DataRowDeleting的代码同样保持不变：

   e.DataRow("入库数量") = 0
   e.DataRow("出库数量") = 0

5、最后AfterOpenproject事件代码设置为：（分页加载这里我用的是自定义的加载树，按条件加载的，这样对下面的代码有影响吗？）

With DataTables("fucai")
    .LoadOver = "_SortKey" \'设置分页加载依据列
    .LoadFilter = "" \'清除加载条件
End With

 把例子传上来。

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

为什么我的外部数据源上传不上来呢。mdb格式的，提示文件类型不正确！！

例子已经上传，请老师帮忙做下具体的代码，改了一上午了，问题还是没解决。

目前开发遇到的问题如下：

1. 我的辅材出库界面已经录了1000多行，如果数据量再大的话，启动速度会慢，如果不全部加载数据的话，那主表

总库存统计的数量就不准确。所以要采用分页加载与流水账的形式来做，甜老师说是表达式列无法触发datacolchanged事件，

所以代码就不知道改如何修改了。

请老师麻烦些，帮我实现这个例子，因为我有好个表都存在这样的问题，都需要修改。谢谢老师了！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分页加载与流水账例子.rar

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

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

明白了，甜老师，绕了个弯路。可以不删除结余列统计吗？