主题：请问当数据复制到统计表中有两列内容不一样时能否有窗口提示。

DataColChanging事件

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