试试 我也是新手 互相帮忙DataColChanging
Select e.DataCol.Name
Case "spec"
If e.NewValue<> "" Then
Dim drs As List(Of String)
drs= DataTables("衰减器订单执行统计表").GetValues("spec","[客户售达方列]='"& e.DataRow("客户售达方列") &"'")
If drs.Contains(e.NewValue)=False Then
MessageBox.Show("有不同!")
e.Cancel=True
End If
End If
End Select
[此贴子已经被作者于2015/7/24 15:20:06编辑过]