主题：余额问题出错

 按实列做的收 入，支出，余额问题出错，

这个不现实嘛，我是在窗口上弄的副表，也不可能重量列嘛？难道在窗口上弄一个重置按钮？

可不可以用追载的方式？在半秒内追载？这们另一个电脑在输入时已经看到新的数据了？

你的意思只要是两个客户端输入的就必须重置列？用追载的方式都不能解决这个问题？我是在窗口上的副表，是不是只有增加一个重量的按钮才可以实现？ 有什么好方法没？我这个决定了是多用户在不同网络端用的。怎么办呀？

版主：不么怎么操作，有什么简单的方法没？你说的用后台的方式真心不懂。我是用高效率的流水账设计的设计列子做的，能更清楚些么？我能想到的是手动加一个重置第一行的方式，或者用间隔100毫秒加载的方法，后台统计的方式不会。请指导一下了，要完工一了。

表事件

 

微信零钱_DataColChanged

 

Select Case e.DataCol.Name

    Case "收入","支出"

        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))

            Dim Val1nh As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))

            Dim Val2nh As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))

            dr("余额") = Val1nh - Val2nh

        Next

End Select

 

微信零钱_DataRowAdded

 

e.DataRow("经手人") = _Username

 

微信零钱_DataRowDeleting

 

e.DataRow("收入") = 0

e.DataRow("支出") = 0

 

微信零钱_AfterMoveRow

 

Dim keynh As Decimal

Dim indexnh As Integer

Dim dcnh As DataCol

indexnh = Math.Min(e.Oldindex, e.Newindex)

keynh = e.Table.Rows(indexnh)("_Sortkey")

dcnh = e.Table.DataTable.DataCols("收入")

dcnh.RaiseDataColChanged("[_Sortkey] >= " & keynh)

 

微信零钱_DrawCell

 

If e.Col.name="收入" Then

e.Style="收入样式"

End If

 

If e.Col.name="支出" Then

e.Style="支出样式"

End If

可否用？分页加载与流水账 这种方式解决这个问题？

不知怎么写这个数据。请问怎么弄？

我想请问一下 可不可以用高效率的流水账设计，方案，同时加入半秒的点时加载方式？如果两个网络用户在输入同一个表时，保存的间隔时间大于半秒时，是不是可以解决我说的这个问题？余额显示不正确的问题？？不想再去找其它方法了。最近因为这个问题考虑了好久。一直没解决好。感谢！

是不是修改成这样就行了？