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

DataColChanging事件

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

问题：

1.我想判断重复后，显示的不是MessageBox.Show("此订单号已经存在!")，希望可以在窗口中的tables显示出订单号的重复值和其对应的日期这两列；

2.显示重复值后，用户可以选择是否录入这个重复值；

请各位支支招。