主题：[求助]分页流水账是否可按项目统计余额

 回复20楼，关闭项目，重新打开一次

大红袍 ，你的例子打开出现这个问题，自动弹出这窗口，每按一下页，又出现上期余额的窗口，又要按确定，是不是哪里的代码可以册掉的，因为产品有100多种，会按得人疯起来的，哈哈 ，请问怎么解决，谢谢。

如图：
此主题相关图片如下：qq图片20150508153949.png
 

此主题相关图片如下：qq图片20150508160026.png

 抱歉，现在才回复你。

 

 你去看Datacolchanged事件的代码，把msgbox()的代码去掉就行了。

大红袍，非常感谢，问题解决了

其实有没有更优化计算的代码，因为我晚上测试了一下，如果是加载500条行数，分卡七、八秒，加载3000条，软件没反应，如果代码能优化计算就更好了，谢谢，大红袍

特别慢可能是表的AfterLoad事件的代码有问题，改成这样就好了：

 

If e.DataTable.DataRows.count > 0 Then
    Dim cps As List(of String) = e.DataTable.GetValues("产品")
    For Each cp As String In cps
        Dim dr As DataRow = e.DataTable.Find("产品 = '" & cp &"'","[_SortKey]")
        e.DataTable.DataCols("支出").RaiseDataColChanged(dr)
    Next
End If

 

其实流水账只需重置每个产品的第一行即可，不需要充值所有行。

大红袍，原来你这个代码好像对内部数据表才行，对外部数据表的效果失效了，我今天测试才试到

大红袍，原来你这个代码好像对内部数据表才行，对外部数据表的效果失效了，我今天测试才试到