主题：求助

Select e.DataCol.name
    Case "实退","实收","结算金额","结算否","投保人"
        Dim filter As String = "投保人 = '" & e.DataRow("投保人") & "' and _Identify < " & e.DataRow("_Identify")
        Dim pdr As DataRow = e.DataTable.find(filter, "_Identify desc")
        If pdr IsNot Nothing Then
            If e.DataRow("结算否") = True Then
                e.DataRow("结算金额") = pdr("结算金额")
            Else
                e.DataRow("结算金额") = pdr("结算金额")+e.DataRow("实收")-e.DataRow("实退")
            End If
        End If
End Select