主题：一个问题请教

Select Case e.DataCol.name
    Case "送审值","子项类型","所属项目"
        Dim drs As List(of DataRow) = e.DataTable.Select("所属项目 = '" & e.DataRow("所属项目") , "子项类型 = '" & e.DataRow("子项类型") & "' And 送审值 Is Not Null And 子项类型 Is Not Null And 所属项目 Is Not Null","子项类型")
        Dim sum As Double
        Dim JINE As Double
        Dim DAXIE As String
        For i As Integer = 0 To drs.count - 1
            drs(i)("排列顺序") = i + 1
            sum = sum + drs(i)("送审值")
            drs(i)("累计值") = sum
                    Next

End Select