Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "S elect * from {YH_其他流水表}"
Dim dt As DataTable = cmd.ExecuteReader()
Select Case e.DataCol.Name
Case "支付帐号","收入","支出"
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = dt.sqlFind("[_SortKey] < " & mr("_SortKey") & " And [支付帐号] = '" & mr("支付帐号") & "'", "[_SortKey] Desc")
If dr Is Nothing Then
mr("余额") = mr("收入") - mr("支出")
dr = mr
End If
drs = dt.S elect("[_SortKey] >= " & dr("_SortKey") & " And [支付帐号] = '" & dr("支付帐号") & "'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
Next
If e.DataCol.Name = "支付帐号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = dt.sqlFind("[_SortKey] < " & mr("_SortKey") & " And [支付帐号] = '" & e.OldValue & "'", "[_SortKey] Desc")
If dr Is Nothing Then
dr = dt.Find("[支付帐号] = '" & e.OldValue & "'", "[_SortKey]")
If dr IsNot Nothing Then
dr("余额") = dr("收入") - dr("支出")
End If
End If
If dr IsNot Nothing Then
drs = dt.S elect("[_SortKey] >= " & dr("_SortKey") & " And [支付帐号] = '" & dr("支付帐号") & "'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
Next
End If
End If
End Select
红色代码无效，大神帮忙看看
加好友 
发短信
Post By：2021/10/21 15:26:00 [只看该作者]
