主题：求助：流水账代码

Select Case e.DataCol.Name

    Case "项目名称","工程单位名称","费用类别","费用类别1","进度金额"

        Dim s As Double

        Dim dr,r As DataRow

        Dim drs As List(of DataRow)

        For Each r In e.DataTable.dataRows

            s = 0

            drs = e.DataTable.Select("[项目名称] = '" & r("项目名称") & "' And [工程单位名称] = '" & r("工程单位名称") & "' And [费用类别] = '" & r("费用类别") & "' And [费用类别1] = '" & r("费用类别1") & "'")

            For Each dr In drs

                s+ = dr("进度金额")

                dr("累计进度") = s

            Next

        Next    

End Select