主题：[求助]帮忙看看关于统计的，二天了都搞不定

代码

DataTables("临时表").DataRows.Clear
For Each dr As DataRow In DataTables("数据表").Select("", "类型,第二列 desc,第三列 desc")
    Dim fdr As DataRow = DataTables("临时表").Find("类型 = '" & dr("类型") & "' and (第二列 = '" & dr("第二列") & "' and 第三列 = '" & dr("第三列") & "' or 第二列 = '" & dr("第三列") & "' and 第三列 = '" & dr("第二列") & "')")
    If fdr Is Nothing Then
        fdr = DataTables("临时表").AddNew
        fdr("类型") = dr("类型")
        fdr("第二列") = dr("第二列")
        fdr("第三列") = dr("第三列")
        fdr("数量") = dr("数量")
    Else
        fdr("数量") += val(dr("数量"))
    End If
Next