我的意思是不是
表事件
微信零钱_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
我的意思是不是只需要把： e.DataTable.Compute 改成 e.DataTable.SQLCompute 就可以了？
加好友 
发短信
Post By：2019/1/16 8:51:00 [显示全部帖子]
