Dim ls As new List(of String)
For Each dr As DataRow In dt.Select("凭证ID = '"& str & "'")
If ls.contains(dr("摘要")) = False Then
ls.add(dr("摘要"))
Dim r1 As Row = Tables("凭证.凭证明细").AddNew()
r1("摘要") = "转:" & dr("申请单号") & dr("申请人") & ":" & dr("摘要")
r1("科目代码") = dr("借方代码")
r1("借方金额") = dt.Compute("sum(金额)","借方代码= '"& dr("借方代码") & "'and 凭证ID = '"& str & "'and 摘要 = '"& dr("摘要") & "'")
End If
Next
[此贴子已经被作者于2019/4/18 15:59:12编辑过]