原代码:
For Each dr As DataRow In dt.Select("凭证ID = '"& str & "'")
Dim r1 As Row = Tables("凭证.凭证明细").AddNew()
r1("摘要") = "转:" & dr("申请单号") & dr("申请人") & ":" & dr("摘要")
r1("科目代码") = dr("借方代码")
r1("借方金额") = dt.Compute("sum(金额)","借方代码= '"& dr("借方代码") & "'and 凭证ID = '"& str & "'and 摘要 = '"& dr("摘要") & "'")
Next
还想加个遍历条件 : dt表的摘要不重复
新代码:
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