DataColChanged
代码为:
If e.DataCol.Name = "产品编号" Then
DataTables("订单明细").DeleteFor("生产单号 = '" & e.DataRow("生产单号").Replace("'", "''") & "'")
For Each dr As DataRow In DataTables("样品子件").Select("产品编号 = '" & e.NewValue.Replace("'", "''") & "'")
Dim nr As Row = Tables("订单明细").Addnew
nr("生产单号") = e.DataRow("生产单号")
nr("物料编号") = dr("物料编号")
nr("物料名称") = dr("物料名称")
nr("规格型号") = dr("规格型号")
nr("用料系数") = dr("用料系数")
nr("单位") = dr("单位")
nr("属性") = dr("属性")
nr("材质") = dr("材质")
Next
End If
加好友 
发短信
Post By：2017/4/6 15:04:00 [显示全部帖子]
