主题：遍历不重复的行

For Each zy As String In dt.GetValues("摘要","凭证ID = '"& str & "'")

    For Each dr As DataRow In dt.Select("凭证ID = '"& str & "'and 摘要 = '"& zy & "' ") '没有实现此功能

        Dim r1 As Row = Tables("凭证.凭证明细").AddNew()

        r1("摘要") = "转:" & dr("申请单号") & dr("申请人") & ":" & dr("摘要")

        r1("科目代码") = dr("借方代码")

        r1("借方金额") = dt.Compute("sum(金额)","借方代码= '"& dr("借方代码") & "'and 凭证ID = '"& str & "'and 摘要 = '"& dr("摘要") & "'")

    Next

Next