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.SQLCompute("Sum(主卡冲入)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2nh As Double = e.DataTable.SQLCompute("Sum(分配金额)","[_SortKey] <= " & dr("_SortKey"))
dr("主卡余额") = Val1nh - Val2nh
Next
End Select
e.DataTable.save
由于我是一个集面集合上，其它的表都是收入，支出，只有油卡明细上是列名称有些不一样，我的余额重置按纽是这样写的：
Dim tab As WinForm.TabControl = e.Form.controls("TabControl1")
Dim i As String = tab.SelectedPage.text
If i="油卡明细" Then
i="youkamingxi"
Else
i=i
End If
If i="youkamingxi" Then
DataTables(i).DataCols("主卡冲入").RaiseDataColChanged(DataTables(i).DataRows(0))
Else
DataTables(i).DataCols("收入").RaiseDataColChanged(DataTables(i).DataRows(0))
End If
发现了一个问题，集页集合上其它重量都很快，但这个不行，很慢大约4分钟，像死机一样，
二：我发出重置的只是入帐，出帐不重置么？是只需重置一个？还是重置两个？谢谢！
[此贴子已经被作者于2019/3/8 18:00:41编辑过]
加好友 
发短信
Post By：2019/3/6 14:30:00 [只看该作者]
此主题相关图片如下：余额验证问题.png