Select e.DataCol.Name Case "规格","备注" If e.NewValue <> e.DataRow.OriginalValue(e.DataCol.Name) Then For Each dt As DataTable In DataTables If dt.Name.EndsWith("车间") Then Dim dr As DataRow = dt.SQLFind("订单编号 = '" & e.DataRow("订单编号") & "' And 订单编号 Is Not Null") If dr IsNot Nothing Then dr("规格") = e.DataRow("规格") dr("备注") = e.DataRow("备注") End If End If Next End If End Select