主题：[求助]窗口Tables 空间显示重复值

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        If MessageBox.Show("此订单号已经存在,日期:" & dr("日期") & ",是否继续输入?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) =DialogResult.No Then
            e.Cancel = True
        End If
    End If
End If