For Each Product As String() In DataTables("凭证明细").GetValues("时间|凭证号")
Dim a2 As DataRow=DataTables("凭证号").Find("时间='" & Product(0) & "'and 凭证号='" & Product(1) & "'")
If a2 IsNot Nothing Then
dim idx as integer = 1
For Each dr as datarow in DataTables("凭证明细").select("时间='" & Product(0) & "' and 凭证号='" & Product(1) & "'")
dr("uuid")=a2("uuid")
dr("凭证遍号")=idx
idx += 1
Next
End If
Next