主题：数据累加

这个代码能这样写吗

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

 

示例六

下面这个例子，一般用户客户忽略。
可以同时从多列提取不重复的值，此时返回的不是字符的集合，而是字符数组的集合。
例如从客户列和产品列提取不重复的值：

'定义数组集合的时候，要在类型后加上括号，表示这是一个数组集合。
Dim Arys As List(Of String()) 
Arys = DataTables("订单").GetValues("产品|客户") '列名用符号|分割
'注意循环变量是字符型数组，所以类型是String()，而不是String
For Each Ary As String() In Arys
    Output.Show(Ary(0) & "|" & Ary(1)) 
Next

上面的代码是从客户和产品两列提取不重复的值，返回的不是一个字符集合，而是一个字符数组集合，每个数组包括两个元素，第一个元素是客户值，第二个元素是产品值。

自己测试看效果。有具体问题再说