主题：文本框新值判断

If e.DataCol.Name = "销售单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("销售单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此销售单号已经存在!")
        e.Cancel = True
    End If
End If

以上代码在窗体上怎么写，谢谢