Select e.DataCol.Name Case "spec" If e.NewValue <> Nothing Then Dim drs As List(Of DataRow) = DataTables("衰减器订单执行统计表").Select("[客户售达方列]='"& e.DataRow("客户售达方列") &"'") For Each dr As DataRow In drs If dr("spec") <> e.newValue Then MessageBox.Show("有不同->" & dr("销售订单")) e.Cancel=True End If Next End If End Select