Select Case e.DataCol.name
Case "编号"
If e.DataRow.IsNull("编号") = False Then
DataTables("物资检验详单").DeleteFor("编号='" & e.DataRow("编号") & "'")
Else
If e.DataRow("物资说明") = "原材料" Then
For i As Integer = 1 To e.DataRow("到货_批次")
Dim ndr As DataRow = DataTables("物资检验详单").AddNew
ndr("编号") = e.DataRow("编号")
ndr("预算编号") = e.DataRow("预算编号")
ndr("物资说明") = e.DataRow("物资说明")
ndr("名称") = e.DataRow("物资名称")
ndr("规格") = e.DataRow("规格")
ndr("材质") = e.DataRow("材质")
ndr("单位") = e.DataRow("单位")
Next
End If
End If
End Select
没反应，不知道哪里有问题？
加好友 
发短信
Post By：2018/6/6 13:16:00 [只看该作者]
