主题：两个看教程的问题

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

另外，我记得我之前找到过可以将FOXTABLE上面的所有菜单复制的功能，现在找不到了。能不能再发我下？

谢谢！

前面已经看了无数遍了，模模糊糊有印象，但是还是记不住。还是不会用。

不知道高手是怎么炼成的。