Select Case e.DataCol.Name

    Case "实收工资","应收提成"

        Dim dr As DataRow

        Dim drs As List(of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行

        If dr Is Nothing Then \'如果没有上一行,说明本行就是第一行

            if 0 < e.DataRow("实收工资") <= 39 Then

               e.DataRow("应收提成") = 0

            else if 40 <= e.DataRow("实收工资") <= 59 Then

                 e.DataRow("应收提成") = e.DataRow("实收工资") * 0.05

                 else If 60 <= e.DataRow("实收工资") <= 99 Then

                      e.DataRow("应收提成") = 3 + e.DataRow("实收工资") * 0.1

                      else If 100 <= e.DataRow("实收工资") Then

                           e.DataRow("应收提成") = 15

                           end if

           dr = e.DataRow

        End If

        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"))

        For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额

            drs(i)("提成总计") = drs(i-1)("提成总计") + drs(i)("实收提成")

        Next

End Select

想要实现自动计算，自动统计，可总是有问题  各个列为：实收工资   应收提成   实收提成   提成总计