把重复数据去除后统计

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126939&skin=0

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列"
For Each dr As DataRow In DataTables("表A").Select("", "第一列,第二列")
   
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
    End If
    If flag OrElse pdr Is Nothing Then
        If count > 1 Then
            idx &= idx_temp
        End If
        count = 1
        idx_temp = ""
    Else
        count += 1
        idx_temp &= dr("_Identify") & ","
    End If
   
    pdr = dr
Next

If count > 1 Then
    idx &= idx_temp
End If

Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")"  \'显示唯一值

比如

Dim jb As new SQLJoinTableBuilder("汇总表1","收款明细")
jb.AddTable("收款明细","合同编号","开票明细","合同编号", JoinModeEnum.right)
jb.AddCols("{收款明细}.合同编号","{收款明细}.项目名称","{收款明细}.款项内容","开票明细_开票时间","开票明细_开票金额","收款明细_开票时间","收款明细_开票金额")
jb.Build()
MainTable = Tables("汇总表1")

如果需要【收款明细】的多余项目，也统计出来，你需要组合统计，如

http://www.foxtable.com/webhelp/scr/2305.htm

那你就改成

jb.AddCols("{开票明细}.合同编号","{开票明细}.项目名称","{收款明细}.款项内容","开票明细_开票时间","开票明细_开票金额","收款明细_开票时间","收款明细_开票金额")