If Forms("下采购订单").opened
For Each dr2 As DataRow In DataTables("采购明细表").Select("[采购单号] = '" & Tables("下采购订单_table1").current("采购单号") & "'")
For Each dr As DataRow In DataTables("采购需求").Select(" [_Identify] = '" & dr2("行ID") & "'")
dr.Locked = False '解锁行
dr2("审核") = True
If DataTables("采购明细表").Compute("Sum(订料数)", " [行ID] = '" & dr2("行ID") & "' and [审核] = 'true' ") IsNot Nothing Then
dr("订料数") = DataTables("采购明细表").Compute("Sum(订料数)", " [行ID] = '" & dr2("行ID") & "' and [审核] = 'true' ")
Else
dr("订料数")=0
End If
dr("采购单号") = dr2("采购单号") 采购明细表产生多个采购单，要将多个采购单号插入到采购需求的采购单号，格式为：（采购单号1，采购单号2……），怎么写？
dr.Locked = True '锁定行
dr2.Locked = True
dr.save()
Next
Next
End If
加好友 
发短信
Post By：2018/11/20 14:01:00 [只看该作者]
