你好
如下图，需要求和，在多个重复值中各取一个值进行计算，请问用VB语言应如何写。
图中正确求和应=32
谢谢！

方法一：sql = "select sum(a.数量) from (select distinct 条码号,数量 from [myTable]) a"
方法二：
 Dim dic As New Dictionary(Of String, Integer) '声明字典
        Dim son As KeyValuePair(Of String, Integer)
        Dim k As Integer = 0
        Dim dt As New DataTable '数据表

        For Each drow As DataRow In dt.Rows
            If Not dic.ContainsKey(drow("条码号")) Then
                dic(drow("条码号")) = drow("数量")
            End If
        Next
        For Each son In dic
            k += son.Value
        Next
        MsgBox(k.ToString)

收到的鲜花

• dunnys 于 2023-01-13 11:32 送鲜花  1朵  

不好意思，来晚了，谢谢版主的技术分享。

感谢！