Dim drs As List(Of DataRow) = DataTables("物料").Select("[选择] = True")
If drs.Count > 0 AndAlso Tables("订单.订单明细").Rows.Count = 1
If Tables("订单.订单明细").Rows(0).IsNull("物料编号") Then Tables("订单.订单明细").Rows(0).Delete
End If
For Each dr As DataRow In drs
Dim yu As Row = Tables("订单.订单明细").AddNew()
If dr IsNot Nothing Then
yu("物料编号") = dr("物料编号")
End If
Next
e.Form.Close()
End Select
[此贴子已经被作者于2019/6/8 9:25:50编辑过]