染色产量表DataColChanged事件
If e.DataCol.Name = "下一工序" Then
If e.NewValue > "" Then
Dim dr As DataRow
dr = DataTables("配缸表").Find("[编号] = '" & e.DataRow("编号") & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("下一工序") = e.NewValue
End If
End If
End If
[此贴子已经被作者于2016/11/30 9:09:05编辑过]