主题：[求助]表达式列，重复的不提示

[求助]表达式列，重复的不提示，

‘fa piao号’列是表达式列，重复就不提示，需要修改代码吗？

If e.DataCol.Name = "fa piao号" Then
    Dim dr As DataRow = DataTables("进项fa piao").Find("fa piao号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此'fa piao号'已存,不能重复录单!","提醒")
        e.DataRow("fa piao号") =""
        e.Cancel = True
    End If
End If