主题：请教重复值合计问题

大红袍老师，在编辑的过程中计算。

那你说明白啊，没有必要在表里面显示，显示在某个控件里啊。

 

 例子发上来很难么

我如果能做出例子就没问题啦，就是没有思路不知道怎么实现哪

1、建立表；

 

2、建立窗口；

 

3、说明要实现什么功能

如何从列中获取一定条件的值，问题前面已经很详细，例子做了也是空的

解题思路就这么难吗？

Dim sum As Double = 0
For Each fl As String() In DataTables("表A").GetValues("第一列|第二列")
    sum += val(fl(1))
Next
msgbox(sum)

谢谢大红袍大师的经典代码指导！！！按不重复第一列查找对应第二列不重复值的合计问题已解决，谢谢！

  以下问题：

如果要找出不重复‘第一列’所对应‘第二列’最大值进行合计，找了帮助的相关代码，

比如，找出不重复“第一列”内容对应的“第二列”max值  

Dim v1 As double

 Dim c1s As List(Of String)

c1s = datatables("表A“）.GetValues("第一列")

For Each c1  As String In c1s

    v1 = datatables("表A”）.Compute("max(第二列)", "[第一列] = '" & c1 & "'")

Next

msgbox(v1)

执行的结果是，分别显示第一列内容对应的MAX，那如何将这些MAX相加？也就是得到sum(v1)的值？

 

  请大师指教！

Dim v1 As double

 Dim c1s As List(Of String)

c1s = datatables("表A“）.GetValues("第一列")

For Each c1  As String In c1s

    v1 =v1 + datatables("表A”）.Compute("max(第二列)", "[第一列] = '" & c1 & "'")

Next

msgbox(v1)

大师原来是这样炼成的！谢谢Bin老师！