Dim dj As DataRow = DataTables("订单进度").Find("生产调度令号= '" & e.oldValue & "'") Dim dr As DataRow = DataTables("订单核价").Find("生产调度令号= '" & e.oldValue & "'") If dj(e.DataRow(e.DataCol.Name)) = dr(e.DataRow(e.DataCol.Name)) Then
dj("派工姓名") = e.DataRow("派工姓名") dj(e.DataCol.Name) = e.DataRow(e.DataCol.Name) End If