主题：[求助]统计

DatacolChangIng代码错误,你把字符串和 数值类型做对比了.

 代码

 

If e.DataCol.Name = "销售总额" andAlso e.NewValue <> Nothing Then
    Dim dr As DataRow
    dr = e.DataTable.Find("销售总额 = " & e.NewValue & " and 客户 = '" & e.DataRow("客户") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此号码已经存在决不能重复!")
        e.Cancel = True
    End If
End If

If e.DataCol.Name = "销售总额" andAlso e.NewValue <> Nothing Then
    Dim dr As DataRow
    dr = e.DataTable.Find("销售总额 = " & e.NewValue & " and 客户 = '" & e.DataRow("客户") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此号码已经存在决不能重复!")
        e.NewValue = Nothing
    End If
End If