主题：狐爸重复问题

Select Case e.DataCol.Name
    Case "账户名称","收入","金额","报销日期"

Select Case e.DataCol.Name
    Case "账户名称","收入","金额","报销日期"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        If mr.IsNull("报销日期") Then
            mr("余额") = Nothing
            Return
        End If

Select Case e.DataCol.Name
    Case "账户名称","收入","金额","报销日期"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        If mr.IsNull("报销日期") Then
            mr("余额") = Nothing
            Return
        End If
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [账户名称] = '" & mr("账户名称") & "' And 报销日期 IS NOT NULL", "[_SortKey] Desc")
        If dr Is Nothing Then
            mr("余额") = mr("收入") - mr("金额")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [账户名称] = '" & dr("账户名称") & "' And 报销日期 IS NOT NULL", "[_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 = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [账户名称] = '" & e.OldValue & "' And 报销日期 IS NOT NULL", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[账户名称] = '" & e.OldValue & "' And 报销日期 IS NOT NULL", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("余额") = dr("收入") - dr("金额")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [账户名称] = '" & dr("账户名称") & "' And 报销日期 IS NOT NULL", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("金额")
                Next
            End If
        End If
        mr.Locked = True
End Select

你的代码没有以日期为条件，更改日期结果自然不会变了

删除前面的日期，后面的也计算，等于更改一行全部计算，这样的效率能行吗？

 

安装了ie9，论坛短信不能用（不能回复），晕。