主题：数据累加

这个代码能这样写吗

Dim drs As New List(of DataRow)

For Each nm As String In e.DataTable.GetValues("项目名称","施工合同段","","支付编号","桩号") '找出每个产品的第一行数据, 添加到集合drs中

    drs.Add(e.DataTable.Find("项目名称 = '" & nm & "'and项目名称 = '" & nm & "' and 施工合同段 = '" & nm & "' and 支付编号 = '" & nm & "' and 桩号 = '" & nm & "'", "[_SortKey]"))

Next

For Each r As DataRow In drs

    e.DataTable.DataCols("申报数量").RaiseDataColChanged(r)

Next